bonjour J.P.

..Range("A2:A" & LRow).SpecialCells(xlCellTypeVisible).EntireRow.De lete

isabelle

Le 2015-04-25 12:07, JeanPierre Charron a écrit :
Sub DelRowsOnCond()
Dim LRow As Long
'
'How do I create a Range of rows to delete for Criteria1 Not Equal to "F1PPM60601" OR F1PPM60549" Etc...
'
Range("a2").AutoFilter Field:=1, Criteria1:="<""F1PPM60601"",""F1PPM60549"",""F1PP M60623"""
'
'Exclude 1st row (Headers)
With Sheets("Invoices")
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
'
'What is the right syntax to Delete Rows of the above defined Range
.Range("A2:A" & LRow).Rows.Delete
End With
ActiveSheet.ShowAllData
End Sub

Help Appreciated,
J.P.