Améliorer rapidité d'exécution d'une macro

Bonjour,

j'ai créé une macro comportant énormément de copier/coller de se type:


Range(Cells(1, 1), Cells(720, 1)).Select
Selection.Copy
Sheets("Cycles moyens").Select
Cells(2, 1).Select
ActiveSheet.Paste


après avoir recherché une solution plus rapide sur différent forum j'en suis arrivé à cette formulation:


'Sheets("Data préparées").Range(Sheets("Data préparées").Cells(1, 1), Sheets("Data préparées").Cells(720, 1)).Copy Destination:=Sheets("Cycles moyens").Cells(2, 1)
Range(Sheets("data préparées").Cells(1, 1), Sheets("data préparées").Cells(720, 1)).Copy Destination:=Sheets("cycles moyens").Cells(2, 1)



j'ai vu une amélioration mais y aurais t-il des formulation encore plus efficace?

(certains "copier/coller" comporte des variables et donc énormément de points d'ou la longue durée d'exécution )


merci à vous chers internautes ;)