Bonjour,

j'ai le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Sheets("temp").Select
    Range(Columns(5), Columns(4 + Nbr_Ech)).Select
    Selection.Copy
    Sheets("Final").Select
    Range(Columns(5), Columns(4 + Nbr_Ech)).Select
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
je voudrais tenter d’accélérer cette partie en l'optimisant car ces plages peuvent contenir 100 colonnes et 10000 lignes. Et donc cette copie prend du temps
Je cherche quelque chose du genre
[A1].copy [A2]
mais uniquement pour les formats.
Eventuellement en decoupant en boucle (meme si je n'ai pas l'impression que les boucles viennent à accelerer la copie)


Avez vous une idée?

merci