Option Base 1
Sub compare()
Dim i As Long, j As Long, tabF1 As Variant, tabF2 As Variant, egal As Boolean
tabF1 = Sheets("F1").Range("A1").CurrentRegion
tabF2 = Sheets("F2").Range("A1").CurrentRegion
With Sheets("F2")
For i = UBound(tabF1) To 2 Step -1
egal = True
For j = UBound(tabF1, 2) To 1 Step -1
If tabF1(i, j) <> tabF2(i, j) Then egal = False
Next j
If egal Then .Cells(i, 1).EntireRow.Delete
Next i
End With
Sheets("F2").Select
End Sub