Recherche et suprimmer ligne excel fonction d'un mot

Sub Supprime()
Dim w As Worksheet, plage As Range
Application.ScreenUpdating = False
On Error Resume Next
For Each w In Worksheets
  w.AutoFilterMode = False
  w.[1:1].Insert
  Set plage = w.Range("A1", w.[A65536].End(xlUp))
  plage.AutoFilter 1, "*KOMMTEST*"
  plage.SpecialCells(xlCellTypeVisible).EntireRow.Delete
  w.AutoFilterMode = False
Next
End Sub

Sub Macro1()
Dim o As Worksheet 'déclare la variable o (Onglet)
Dim r As Range 'déclare la variable r (Recherche)
Dim pa As String 'déclare la variable pa (Première Adresse)
Dim tot() As Long 'déclare la variable tot (Tableau des Occurrences Trouvées)
Dim x As Long 'déclare la variable x (incrément)
Dim y As Long 'déclare la variable y (incrément)
 
For Each o In Sheets 'boucle 1 : sur tous les onglets du classeur
    x = 0 '(ré)initialise la variable x
    'définit variable r (Recherche "KOMMTEST" dans la colonne A de l'onglet)
    Set r = o.Columns(1).Find("KOMMTEST", , xlValues, xlWhole)
    If Not r Is Nothing Then 'condition : si il existe au moins une occurrence de "KOMMTEST" dans la colonne A de l'onglet
        pa = r.Address 'définit l'adresse de la première occurrence trouvée
        Do 'exécute
            ReDim Preserve tot(x) 'redimensionne le tableau tot
            tot(x) = r.Row 'récupère le numéro de ligne de l'occurrence trouvée
            x = x + 1 'redéfinit la variable x
            Set r = o.Columns(1).FindNext(r) 'redéfinit la variable r (recherche suivante)
        'boucle tant qu'il existe des occurrences ailleurs qu'en pa
        Loop While Not r Is Nothing And r.Address <> pa
    End If 'fin de la condition
 
    For y = UBound(tot, 1) To LBound(tot, 1) Step -1 'boucle 2 : sur toutes les éléments du tableau tot (du dernier au premier)
        Rows(tot(y)).Delete shift:=xlShiftUp 'supprime la ligne correspondante
    Next y 'prochaine élément du tableau tot
Next o 'prochain onglet du classeur (boucle 1)
End Sub

Sub Staple()
Dim r As Range, rf As Range, ws As Worksheet
 Application.ScreenUpdating = False
 For Each ws In Worksheets
With ws
  Set r = _
  .[A1].CurrentRegion: r.AutoFilter 1, "KOMMTEST"
   Set rf = _
  .[_FilterDataBase]: rf.Resize(rf.Rows.Count - 1).SpecialCells(12).Delete Shift:=xlUp
  .AutoFilterMode = False
End With
Next
End Sub