XL 2016 Insertion de colonnes sur plusieurs feuilles en Vba

Hasco à dit:

bonjour,

Entre autres possibles et parceque VBA ne sait pas travailler en groupe de feuilles je vous propose ceci, avec un parcours de chaque feuille du tableau.
Vous remarquerez que je qualifie pleinement les réferences aux classeurs et feuilles et déclare toutes les variables.

Les SELECT sont rarement nécessaires ou utiles

VB:

Sub AJOUT_COLONNE()
    Dim nbCols As Integer
    Dim ws As Worksheet
    '
    ' Indiquer à la macro sur quel classeur elle travaille
    With ThisWorkbook
        'Récupérer le nombre de colonnes à insérer
        nbCols = .Sheets("Feuil1").Range("A1")
        ' Parcourir les feuilles du tableau
        For Each ws In .Sheets(Array("Feuil1", "Feuil2"))
            ' insérer NbCols à partir de F
            ws.Columns("F:F").Resize(, nbCols).Insert xlShiftToRight
        Next
    End With
End Sub

cordialement

Cliquez pour agrandir...