Autres Suppression des feuilles qui ne contiennent pas des mots clés

Sub suppression()

MotClé = Application.InputBox("Saisissez le mot clé à chercher")
If MotClé = "" Then Exit Sub

Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Sheets
    With ws
        Set trouve = .Cells.Find(MotClé)
        If trouve Is Nothing Then
            .Delete
        End If
    End With
Next ws
Application.DisplayAlerts = True
End Sub

Sub Sup()
Dim x$, nf%, i%, c As Range, n%
x = "test de suppresion" 'faute d'orthographe !!!
nf = Worksheets.Count
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
For i = nf To 1 Step -1
    Set c = Worksheets(i).Cells.Find(x, , xlValues, xlPart)
    If c Is Nothing Then n = n + 1: Worksheets(i).Delete
Next
If Err Then n = n - 1
MsgBox n & " feuille(s) sur " & nf & " supprimée(s)" & IIf(Err, ", la dernière ne peut l'être !", "")
End Sub