Insertion automatique de colonnes

pantano13 -  
yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai un gros tableau de données (A1:XU450) et je doit y insérer un colonnes toutes les 3 colonnes.
Exemple insertion en colonne C; colonne F; colonne I etc...
Comment faire?
merci de m'aider

1 réponse

  1.
    yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    Je propose ceci: 
    Option Explicit
Sub pantano13()
Dim numcol As Long
Dim n As Integer
n = 0
numcol = 1
Do While Cells(1, numcol) <> ""
    n = n + 1
    If n = 3 Then
        Cells(1, numcol).EntireColumn.Insert
        n = 1
        numcol = numcol + 1
    End If
    numcol = numcol + 1
Loop 'Do While Cells(1, numcol) <> ""
End Sub
    0