julien974
XLDnaute Occasionnel
Bonjour,
J'ai de nouveau besoin de votre aide amis Excelien! ^^
J'aimerai optimiser la macro suivante pour un temps d'execution plus rapide.
Merci de votre aide précieuse,
Juli3n974
J'ai de nouveau besoin de votre aide amis Excelien! ^^
J'aimerai optimiser la macro suivante pour un temps d'execution plus rapide.
HTML:
Sub hihi()
Sheets("Feuil2").Activate
Columns(1).ClearContents
Range("A3").Value = "DATE"
Sheets("Feuil3").Activate
Range("C2").Activate
For j = Sheets("Feuil3").Range("C2").Column To Sheets("Feuil3").Range("IV2").End(xlToLeft).Column
Sheets("Feuil3").Activate
Cells(2, j).Copy
Sheets("Feuil2").Activate
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Sheets("Feuil3").Activate
Cells(2, j).Copy
Sheets("Feuil2").Activate
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Sheets("Feuil3").Activate
Cells(2, j).Copy
Sheets("Feuil2").Activate
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Sheets("Feuil3").Activate
Cells(2, j).Copy
Sheets("Feuil2").Activate
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Next j
End Sub
Merci de votre aide précieuse,
Juli3n974