Sub test_2()
Dim i As Integer
Dim Plage_A_TRAITER As Range
Dim Liste_VALEURS As Range
Dim Tab_LO As Variant
Dim CELL_TROUVEE As Range
Application.ScreenUpdating = False
Set Liste_VALEURS = Worksheets("Feuil1").Range("A1:A10") ' liste des valeurs recherchées
Tab_LO = Liste_VALEURS
Set Plage_A_TRAITER = Worksheets("Feuil2").Range("A:A")
'ici recherche dans la colonne A de la feuil2
For i = LBound(Tab_LO) To UBound(Tab_LO)
Do
Set CELL_TROUVEE = Plage_A_TRAITER.Find(What:=Tab_LO(i, 1), After:=Range("A" & Rows.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
'ici effacement de la ligne
If Not CELL_TROUVEE Is Nothing Then CELL_TROUVEE.EntireRow.Delete
Loop While Not (CELL_TROUVEE Is Nothing)
Next i
Application.ScreenUpdating = True
End Sub