Sub sup()
Set Init = Sheets("Feuil2").UsedRange
Init.Select
Set Final = Sheets("Feuil1").UsedRange
'Final.Select
For i = Init.Rows.Count To 1 Step -1
Init.Item(i, 4).Select
Set c = Final.Find(Init.Item(i, 4))
If c Is Nothing Then
Init.Item(i, 4).EntireRow.Delete
End If
Next i
End Sub