Suppression de colonnes dans plusieurs feuilles

Bonjour à tous,

J'aurais besoin qu'on aide pour concevoir une macro qui supprime les colonnes "AG" à "LF" dans toutes les feuilles (nombre quelconque) présentes dans un fichier.

Merci à l'avance pour votre collaboration,

Salutations,

Renaud D.

Bonsoir Renaud, bonsoir le forum,

Peut-être comme ça :

Sub Macro1()
Dim O As Object

For Each O In Sheets
    O.Range("AG:LF").Delete
Next O
End Sub

Bonjour,

Une autre proposition.

Cdlt.

Option Explicit
Public Sub Supprimer_colonnes()
Dim wb As Workbook
Dim ws As Worksheet
    Application.ScreenUpdating = False
    Set wb = ThisWorkbook
    For Each ws In wb.Worksheets
        ws.Range("AG1", "LF1").EntireColumn.Delete
    Next ws
    Set wb = Nothing
End Sub

Bonjour,

Merci pour votre réponse.

Votre aide est toujours grandement appréciée.

Sincères salutations,

Renaud D.