Sub essai()
j = Feuil2.Cells(65536, 1).End(xlUp).Row
For i = 1 To j
Set Cel = Feuil1.Columns(1).Find(Feuil2.Cells(i, 1), LookIn:=xlValues, Lookat:=xlWhole)
Set Cel1 = Feuil1.Columns(1).Find(Feuil2.Cells(i, 2), LookIn:=xlValues, Lookat:=xlWhole)
Cel = Cel.Row
Cel = Cel + 1
Cel1 = Cel1.Row
Cel1 = Cel1 - 1
For l = Cel1 To Cel Step -1
Rows(l).Delete Shift:=xlUp
Next
Next i
End Sub