Sub DeleteRows_pmo()
Dim S As Worksheet
Dim R As Range
Dim nbCol&
Dim var
Dim i&
Dim j&
Dim k&
Dim cpt&
Dim bool As Boolean
Dim T()
Dim garder
'--- Indiquez les critères à conserver (sous forme de texte (String)) ---
garder = Array("Période", "Date", "1210", "1395", "4540", "4544", "NET", "1735", "1745", "3670", "3900", "1755", "3280", "Congés", "jours")
'---
ActiveSheet.Copy After:=Sheets(Sheets.Count)
Set S = ActiveSheet
nbCol& = S.UsedRange.Columns.Count
Set R = S.Range(S.Cells(1, 1), S.Cells(S.[a65536].End(xlUp).Row, nbCol&))
var = R
ReDim T(1 To UBound(var, 1), 1 To UBound(var, 2))
For i& = 1 To UBound(var, 1)
bool = False
For k& = 0 To UBound(garder)
If CStr(var(i&, 1)) = garder(k) Then
bool = True
Exit For
End If
Next k&
If bool Then
cpt& = cpt& + 1
For j& = 1 To UBound(var, 2)
T(cpt&, j&) = var(i&, j&)
Next j&
End If
Next i&
R = T
ActiveWindow.ScrollRow = 1
End Sub