Suppression lignes par mot cle

Bonjour,

j'ai besoin de supprimer une ligne entiere si un mot cle figure dans la colonne D (dans le cas present une reference qui peut contenir lttre et chiffre) j'ai fait ceci mais ca ne fonctionne pas

Sub CLEARUNVANTEDLIGNS()
Dim I As Integer
For I = [D65000].End(xlUp).Row To 1 Step -1
If Not Cells(I, 1).Find("AC0002") Is Nothing Then Rows(I).Delete
Next I
End Sub

bonjour,

dans ton instruction If, tu testes le contenu de la colonne 1(=A) et non la colonne 4(=D).

ah oui effectivement! , merci ca fonctionne

phil