Insertion automatique de colonnes

pantano13 -  
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

  • Votes
  • Date
  • Date décroissante
  1. yg_be Contributeur
    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