VBA / probléme de supresion

Bonjour,

j'aimerai supprimer un mots qui se comporte dans une phrase et surprime la ligne .
j'ai réaliser se code si dessous .

le problème c'est qui me garde les ligne avec c'est mots et me supprimer tout les autre .

je voudrais faire l'inverse

si vous pouvez m'aider .
merci d'avance

Sub sup()
Dim Cel As Range, Plage As Range
Dim Mot As String
    Set Plage = Range("Y2:Y20")

Mot = " toi " 'adapter au mot à rechercher et à supprimer
For Each Cel In Plage

    If Cel Like "*" & Mot & "*" Then
        Plage.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        'cel.SpecialCells(xlCellTypeBlanks).EntireRow.Delete marche pas 
    End If

Next Cel
End Sub

Bonjour, à tester:

Sub sup()
Dim Cel As Range, Plage As Range
Dim Mot As String
    Set Plage = Range("Y2:Y20")

Mot = " toi " 'adapter au mot à rechercher et à supprimer
For Each Cel In Plage

    If Cel Like "*" & Mot & "*" Then
        Rows(Cel.Row).Delete
    End If

Next Cel
End Sub

Merci beaucoup Gabin37
pour cette rapidité

de m'avoir permis de résoudre mon portable :)