Suppression de ligne contenant un mot

Bonjour,
je souhaite supprimer les lignes qui contiennent le mot “annulé”
Merci de votre aide

Bonjour

Tu peux essayer le code suivant avec une macro

Sub suppr()
Dim cellRecherche As Range, Mot As String
Mot = InputBox("Mot à rechercher", "Effacement ligne")
Set cellRecherche = ActiveSheet.Cells.Find(Mot, , , xlPart)
While Not cellRecherche Is Nothing
cellRecherche.EntireRow.Delete
Set cellRecherche = ActiveSheet.Cells.Find(Mot, , , xlPart)
Wend
End Sub
1 J'aime

Bonjour,
ça bug sur :
Set cellRecherche = ActiveSheet.Cells.Find(annulé, xlPart)

Il manque probablement des guillemets :
Set cellRecherche = ActiveSheet.Cells.Find(“annulé”, xlPart)

ça bug quand même avec les guillemets.

Bonjour @jlb,
Voici un fichier test reprenant la macro écrite par @orguyrine, légèrement aménagée (sortie de macro si on annule la recherche).
Suppression des lignes annulé.xlsm (31,8 Ko)

Merci Valky, ça fonctionne.
ça me semble pourtant être le même scripte ?
J’indique la résolution du problème