Vire tes
redim preserve application
ca sert à rien ces trucs (sauf erreur de ma part).
louloukg a dit :
Dim Cel3 As Range, Cel4 As Range
Set Cel3 = Range("A2:E75")
Set Cel4 = Workbooks("Classeur2").Worksheets("Feuil1").Range("A1").End(xlDown).Offset(1, 0)
Cel3.Copy Cel4
Là tu souhaite copier ton tableau de classeur 3 vers le classeur 2 en collant de puis la cellule A2?
Car si c'est ca que tu veux faire, je pense pas que ca marche, au mieux ca copiera ton tableau du classeur 3 vers la fin du tableau du classeur 2.
Si ce que tu veux faire c'est ce que je t'ai dit au début, c'est plutot ca:
Dim Cel3 As Range, Cel4 As Range
Set Cel3 = Range("A2:E75")
Set Cel4 = Workbooks("Classeur2").Worksheets("Feuil1").Range("A1").End(xlDown).Offset(1, 0)
Cel3.select
selection.copy
cel4.select
selection.paste
cutcopymode=false
Sinon j'ai testé le reste de ton prog et il à l'air de bien fonctionner. Toi tu as vu qu'il allait mal à quel endroit?