Supprimer colonnes

Bonjour à toutes et à tous,

Mon problème est assez simple, je souhaiterai supprimer la colonne entière qui contient un mot que je recherche ainsi que les 4 colonnes (entières) suivantes.

Pour l'instant j'ai fait ceci :

Sheets("feuille1").Range("A:XFD").Find("bonjour_1", lookat:=xlWhole).EntireColumn.Delete Shift:=xlLeft

Auriez-vous la gentillesse de m'aider svp?

Merci d'avance

Bonjour,

Un essai ...

Dim Cl As Range
Set Cl = Sheets("feuille1").Range("A:XFD").Find("bonjour_1", lookat:=xlWhole)
If Not Cl Is Nothing Then Cl.EntireColumn.Delete Shift:=xlLeft

ric

Bonjour,

Merci pour votre réponse.

Mais cela ne va supprimer que la colonne qui contient "bonjour_1" or je voudrai supprimer la colonne qui contient "bonjour_1" ainsi que les 4 colonnes suivantes...

Bonjour,

Excuse-moi > j'avais zappé le bout des 4 colonnes ...

Un essai ...

Dim Cl As Range
Dim X As Integer

With Worksheets("feuille1")
    Set Cl = .Range("A:XFD").Find("bonjour_1", lookat:=xlWhole)
    If Not Cl Is Nothing Then
        X = Cl.Column
        .Range(.Cells(1, X), .Cells(1, X + 4)).EntireColumn.Delete Shift:=xlLeft
    End If
End With

ric

Super! Merci!!