Sub InsertMultipleColumns()
Dim i As Integer Dim j As Integer
ActiveCell.EntireColumn.Select On Error GoTo Last
i = InputBox("Enter number of columns to insert”, "Insert Columns")
For j = 1 To i
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromRightorAbove
Next j
Last: Exit Sub End Sub

Ce code vous aide à entrer plusieurs colonnes dans un seul
Cliquez sur. Lorsque vous exécutez ce code, il vous demande le numéro
colonnes que vous souhaitez ajouter et lorsque vous cliquez sur OK, il ajoute
entré le nombre de colonnes après la cellule sélectionnée. Si vous
souhaitez ajouter des colonnes avant la cellule sélectionnée, remplacez le
xlToRight à xlToLeft dans le code.