Sub Comp()
Dim i As Integer, j As Integer, LDeb As Integer, LFin As Integer
LDeb = Selection.Row
LFin = LDeb + Selection.Rows.Count - 1
For i = Sheets("Feuil1").Range("A65536").End(xlUp).Row To 2 Step -1
For j = LDeb To LFin
If Sheets("Feuil1").Range("A" & i) = Sheets("Feuil2").Range("A" & j) Then
Sheets("Feuil1").Range("A" & i).EntireRow.Delete shift:=xlUp
End If
Next
Next
End Sub