Boucle colonne VBA

Bonsoir,

Quelqu'un pourrait m'aider à créer une boucle de colonnes dans mon code à la 7ème ligne du code:

Range("A2:E1200").Select

Selection.Copy

Range("A1").Select

ActiveSheet.Paste

Columns("M:M").Select

Selection.Copy

Range("N1").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("A1").Select

le voudrais qu'à chaque lancement de la macro manuellement par un bouton, la colonne où se fait la copie (ici N1) avance d'une colonne ( N1 puis O1, puis P1.....jusqu'à la dernière colonne, il m'en faudrait 900 mais j'ai excel 2007 ça devrait passer...)

merci

Bonsoir,

une proposition,

Range("A2:E1200").Copy Range("A1")
Columns("M:M").Copy
Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial Paste:=xlPasteValues
Range("A1").Select

Bonjour

C'est parfait (comme d'habitude)/merci

Rechercher des sujets similaires à "boucle colonne vba"