Bonjour à tous,

Voila la problématique que j'ai depuis pas mal de temps.
Je souhaite copier des données vers un fichier la tout va bien. Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Set O1 = Workbooks("Fichier1.xls")
Set O2 = Workbooks("Fichier2.xls")
 
    With O2.Sheets("feuil1")
        O1.Sheets(variable).Range("B2:R2").Copy .Cells(.Rows.Count, "A").End(xlUp)(2)
    End With
 
    With O2.Sheets("feuil1")
        O1.Sheets(variable).Range("X2").Copy .Cells(.Rows.Count, "T").End(xlUp)(2)
    End With
Cependant, je rencontre un problème parce que ma feuille source du fichier1 peut contenir une ligne comme 1500 lignes.....