Bonjour,

J'aimerais avoir une précision pour améliorer l'allure de mon code.

Je cherche à copier une plage de cellule d'un classeur et à la coller ensuite dans un autre classeur.

Pour l'instant, je fais comme suit:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Workbooks(wk_out).Activate
Worksheets("feuil1").Range("B1:G1", Selection.End(xlDown)).Copy
 
Workbooks(wk_new).Activate
Worksheets("feuil2").Select
Range("C2").Select
ActiveSheet.Paste
Mais je n'arrive pas à regrouper la partie "collage" comme j'ai regroupé la partie "copiage".

Ce code fonctionne, mais j'aurais aimé savoir si il y avait la possibilité de faire plus court?...D'autant plus que j'ai parfois plusieurs plages du classeur 1 à coller dans le classeur 2, et qu'entre chaque plage je repasse par un WorkBooks.Activate...

Tous les avis sont les bienvenus!

Merci