Si vous voulez insérer plusieurs colonnes – disons que vous voulez insérer trois colonnes avant la colonne E – alors le code devrait être comme dans le code suivant.
Sub InsererColonne ()
Sheets ("Feuil1"). Select
Columns ("C: E"). Select
Selection.Insert Shift: = xlToRight
End Sub