Suppression de ligne par rapport à une liste

Sub suppr()
Sheets("ABC").Range("A1:A10").Name = "critere"
For i = [A65000].End(xlUp).Row To 2 Step -1
    If Not IsError(Application.Match(Cells(i, 1).Value, Range("critere"), 0)) Then
        Rows(i).EntireRow.Delete
    End If
Next i
End Sub

Sub test()
Dim Plage As Range
Set Plage = Sheets("ABC").Range("A1:A10")
For Each Cellule In Plage
varligne = Range("A65536").End(xlUp).Row
For I = 1 To varligne
If Cells(I, 1) = Cellule Then
Rows(I).EntireRow.Delete
I = I - 1
End If
Next I
Next
End Sub

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/05/2009 par VBACrumble
'
Dim pf As Range
Sheets("ABC").Range("A1:A11").Name = "CRIT"
With Sheets(1)
    Set pf = .Range("_FilterDataBase")
    .Range("A1:A" & .[A65536].End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("CRIT"), Unique:=False
    pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .ShowAllData
End With
End Sub