Sub effaceligne()
Application.ScreenUpdating = False
With Sheets("Feuil1")
For i = .Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1
If Application.CountIf(Sheets("Feuil2").[A:A], Val(.Cells(i, 3))) Then .Cells(i, 3).EntireRow.Delete
Next i
End With
Application.ScreenUpdating = True
End Sub