Bonjour,

J'ai des fichiers resultats (resultat1, resultat2, resultat3..) et je voudrais copier la colonne A de ces fichiers sur un seul fichier (test), dans différentes colonnes a la suite. Je ne sais pas comment passer a la colonne suivante.
Pour l'instant j'ai:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
For i = 1 To 10
Workbooks.Open "C:\" & i & ".csv"
Workbooks("resultat" & i & ".csv").Sheets("A" & i).Range("A1:A300").Copy (Workbooks("TEST.xls").Sheets("Feuil1").Range("A1"))
Workbooks("resultat" & i & ".csv").Close
Next i
Et je voudrais remplacer Range("A1") par en gros colonne A+i.
Comment puis je faire?
merci