Macro efface cellule contenant caractères spécifiques et décale

Bonsoir amis excellent !!

Auriez vous un coup de pouce pour une macro.

Je cherche a supprimer dans une plage des colonnes H2 à AB6000, les cellules contenant (i) et la cellule de gauche à (i).

Apres chaque effacement des 2 cellules il s'agit aussi de decaler de 2 vers la gauche les cellules apres (i).

Ici par exemple: K5 et J5 sont effacées et L5 se décale en J5 (en décalant tout le reste de la ligne)

Je vous joins un exemple :

Merci beaucoup

Bonjour,

à tester,

Sub recherche_et_supprime()
Dim keywords As String, firstAddress As String, c As Range
keywords = "(I)"
  With ActiveSheet.Cells
    Set c = .Find(keywords, LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            Range(c.Offset(, -1).Address & ":" & c.Address).Select
            Selection.Delete Shift:=xlToLeft
            Set c = ActiveCell
            Set c = .FindNext(ActiveCell)

        Loop While Not c Is Nothing
    End If
 End With
End Sub

Merci i20100.

Je viens d'essayer le code semble fonctionner.

un grand merci

Bonjour jay72000 ,

Merci pour ce retour, bonne continuation!