Sub test1()
Dim X As Long, Cel As Range
With Sheets("Feuil1")
For X = .Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
Set Cel = Sheets("Feuil2").Range(Sheets("Feuil2").[B1], Sheets("Feuil2").Cells(Rows.Count, "B")).Find(Cells(X, "A"))
If Not (Cel Is Nothing) Then .Rows(X).Delete
Next X
End With
End Sub