Sub test()
'd'en haut vers le bas
Dim lig, i, x, p As Range
lig = Feuil12.Cells(Rows.Count, "E").End(xlUp).Row
For i = 2 To lig
If Feuil12.Cells(i, "E").Value > 0 Then
x = Application.IfError(Application.Match(Feuil12.Cells(i, "E").Value, Feuil12.Columns(5), 0), 0)
If x <> i Then
If p Is Nothing Then Set p = Feuil12.Cells(i, "E") Else Set p = Union(p, Feuil12.Cells(i, "E"))
End If
End If
Next
MsgBox "les lignes a supprimer sont les lignes " & p.Address
'p.entirerow.delete
End Sub