Supprimer ligne dés qu'il y a un mot dans la colonne

Bonsoir le forum,

Je souhaiterais que si dans la colonne D, une cellule contient le mot "DO" "HS" "FV" alors supprimer la ligne.

Après cette suppression et seulement après idem aussi pour la colonne F mais avec des mots différents.

Je suis parti sur ça mais je galère, ca ne fonctionne même pas avec un MOT.

Sub Filtre()

Sheets("Synthèse").Select

Range("F1").Select

For r = 1 To Range("F1").End(xlDown).Row

If ActiveCell = "DO" Then Rows(r).Delete

Next r

End Sub

Merci à vous

Salut

essaie comme ca pour supprimer les lignes qui contiennent le mot "DO" "HS" "FV" dans la colonne D:

Sub SupprimerLignes()
   Dim i As Long
   Sheets("Synthèse").Select  
   Application.ScreenUpdating = False
   For i = Cells(Rows.Count, 4).End(xlUp).Row To 1 Step -1 ' 4 pour la colonne "D"
      If Cells(i, 4) = "DO" OR Cells(i, 4) = "HS" OR Cells(i, 4) = "FV" Then Rows(i).Delete
   Next i
   Application.ScreenUpdating = True
End Sub

Bonne nuit

Bonsoir.

Merci c'est impeccable