Supprimer une ligne entière si

Bonjour,

Je dois trouver un moyen sur excel (utilisant une macro ou non) permettant de supprimer une ligne entière excel si une cellule de la ligne contient un mot (ou chaine de caractères), et le faire pour tous les mots (nous avons 200 mots à vérifier dans 2000 cellules)

Cette macro fonctionne mais la requête prend trop de temps :

Sub Macro1()

Dim a As Range

Dim b As Range

Dim c As Range

For Each a In ActiveSheet.UsedRange

For Each b In ActiveSheet.UsedRange

For Each c In ActiveSheet.UsedRange

If a Like "*ordinateur*" Then a.EntireRow.Delete

If b Like "*telephone*" Then b.EntireRow.Delete

If c Like "*television*" Then c.EntireRow.Delete

Next

Next

Next

End Sub

Savez-vous comment le faire plus rapidement svp?

Merci

Bonsoir,

une proposition

Sub Macro1()
    Application.ScreenUpdating = False
    For Each a In Array("ordinateur", "telephone", "television")
        Set re = ActiveSheet.UsedRange.Find(a, lookat:=xlPart)
        While Not re Is Nothing
            re.EntireRow.Delete
            Set re = ActiveSheet.UsedRange.Find(a, lookat:=xlPart)
        Wend
    Next
    Application.ScreenUpdating = True
End Sub

Bonjour h2so4,

Merci beaucoup d'avoir pris le temps de me répondre, c'est exactement ce que je voulais, ça marche parfaitement bien !!

Bonne journée !