Bonjour,
J'ai 7 feuilles du lundi au samedi et j'aimerai insérer de façon automatique des colonnes identiques aux colonnes C ; E; G; et I après celles-ci.
J'ai essayé ce code mais ça recopie plusieurs fois que ma colonne B :
Sub Macro ()
For n = 1 To 40 Step 2
Columns(40).ClearContents
Columns("C:C").Select
Selection.Copy
Columns(n).Insert Shift:=xlToRightn = n + 1
Columns("E:E").Select
Selection.Copy
Columns(n).Insert Shift:=xlToRightn = n + 1
Columns("G:G").Select
Selection.Copy
Columns(n).Insert Shift:=xlToRightn = n + 1
Columns("I:I").Select
Selection.Copy
Columns(n).Insert Shift:=xlToRightn = n + 1
Next n
End Sub
Il me faut au plus 40 colonnes de chaque (Les vertes) dans chaque feuille.
d'avance merci.
J'ai 7 feuilles du lundi au samedi et j'aimerai insérer de façon automatique des colonnes identiques aux colonnes C ; E; G; et I après celles-ci.
J'ai essayé ce code mais ça recopie plusieurs fois que ma colonne B :
Sub Macro ()
For n = 1 To 40 Step 2
Columns(40).ClearContents
Columns("C:C").Select
Selection.Copy
Columns(n).Insert Shift:=xlToRightn = n + 1
Columns("E:E").Select
Selection.Copy
Columns(n).Insert Shift:=xlToRightn = n + 1
Columns("G:G").Select
Selection.Copy
Columns(n).Insert Shift:=xlToRightn = n + 1
Columns("I:I").Select
Selection.Copy
Columns(n).Insert Shift:=xlToRightn = n + 1
Next n
End Sub
Il me faut au plus 40 colonnes de chaque (Les vertes) dans chaque feuille.
d'avance merci.