sup mot répéter

Sub SupprimerMot()
Dim Cel As Range, Plage As Range
Dim listeMot(1 To 4, 1 To 1) As Variant 'on définit le tablo de 4 liges
'Dim listeMot() As Variant 'on laisse la taille NON définie si on va chercher la liste dans une feuille
Application.ScreenUpdating = False
'définir la liste des Mots à supprimer
'ou par lecture d'une zone spécifique dans le fichier?
listeMot(1, 1) = "class=""st12"
listeMot(2, 1) = "class=""st13"
listeMot(3, 1) = "class=""st14"
listeMot(4, 1) = "class=""st01"
''si on va chercher dans une feuille : ex feuille 2 dans la colonne A
'With Sheets("Feuil2")
'    fin = .Range("A" & .Rows.Count).End(xlUp).Row
'    listeMot = .Range("A1:A" & fin).Value
'End With
Set Plage = Range("i5:i200") ' à adapter à la plage à parcourir.
For i = LBound(listeMot, 1) To UBound(listeMot, 1) 'pour chaque mot de la liste
   
    Mot = listeMot(i, 1) 'adapter au mot à rechercher et à supprimer
   
    For Each Cel In Plage
        If Cel Like "*" & Mot & "*" Then
            Cel = Replace(Cel, Mot, "")
            'Pour enlever le double espace qui en résulte..
            Cel = Replace(Cel, "  ", " ")
        End If
    Next Cel
Next i
    Application.ScreenUpdating = True
End Sub