Sub SupprLignes()
Dim i&, Dl1&, Dl2&, F1 As Worksheet, F2 As Worksheet
Set F1 = Sheets(1)
Set F2 = Sheets(2)
Dl1 = F1.Range("A65536").End(xlUp).Row
Dl2 = F2.Range("A65536").End(xlUp).Row
For i = Dl1 To 2 Step -1
valu1 = Trim(F1.Range("A" & i).Value)
Set valu2 = F2.Range("A:A").Find(What:=valu1, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
If valu2 Is Nothing Then F1.Rows(i).Delete
Next i
End Sub