Intercaler des colonnes vides

Bonjour,

J'aimerais pouvoir intercaler une colonne vide entre chaque colonne de mes données. Je suppose qu'il doit y avoir une fct macro permettant de faire cela?

Merci bcp

Bonjour

Essaye ce code :

Sub AjouteColonne()
Dim i As Integer
For i = Range("A1").End(xlToRight).Column To 1 Step -1
Columns(i).Insert Shift:=xlToRight
Next i
End Sub

Amicalement

Nad

Super, merci beaucoup