Sélection d'une PLAGE RELATIVE en VBA pour EXCEL

Sub Bouton1_QuandClic()
Dim i As Byte

' a adapter suivant le nombre de copie que tu veux faire
'dans ce cas de la colonne 2 à la colonne 5
For i = 2 To 5
'copie la plage a1:a99 vers la colonne i
Range('a1:a99').Copy Cells(1, i)
Next i
End Sub

Cliquez pour agrandir...

Sub Bouton1_QuandClic()
Dim nombre As String
Dim plage As Variant
Dim i As Byte

'demande les numéros de colonnes
nombre = InputBox('Merci d'indiquer les numéros de colonnes de destination, séparées d'un point virgule (ex : 3;6;9)')
'ici on pourrait rajouter des tests pour vérifier les données saisies
If nombre = '' Then Exit Sub
plage = Split(nombre, ';') 'transforme en tableau les données saisies par l'inputbox ne marche pas xl97
For i = 0 To UBound(plage) 'pour i=0 jusqu'au nombre maximum d'items dans le tableau plage
'copie la plage a1:a99 vers la colonne i
Range('a1:a99').Copy Cells(1, CDbl(plage(i)))
Next i
End Sub

Cliquez pour agrandir...