Suppression de lignes si cellules contient un mot ou un caractère spécial

Bonjour au Forum,

Me revoilà avec un nouveau sujet.

Il faudrait que je puisse supprimer les lignes contenant le mot "toto" et également les lignes contenant dans le texte le signe "$". J'ai essayé plusieurs solutions mais évidement cela ne fonctionne pas

Je vous joins mon fichier test.

Si quelqu'un pouvait m'aider, ce serait sympa

Bonjour

Ci joint ma solution

Sub supdol()
  Dim nblig As Long
  nb_lig = Range("A" & Rows.Count).End(xlUp).Row
  For i = nb_lig To 1 Step -1
   If Range("A" & i).Value = "toto" Or Range("A" & i) Like "*$*" Then
    Range("A" & i).EntireRow.Delete
   End If
  Next
End Sub

A+ François

Merci François, cela fonctionne bien. Je ne sais pas pourquoi j'étais parti sur des solutions très bizarres.

Bonne soirée