[XL-2010] Optimisation de code

Optimisation de code

bonjour ,

j'écris un code pour mettre les données de la feuille export sous la forme des données de la feuille data.En réalité jai environ 500 lignes sur la feuille export,la macro met un temps fou à faire le travail je mets en ligne mon code pouvez vous m'aider à l'optimiser ou pouvez vous m'aiguiller sur un autre algorithme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Sub Macro2()
'
' Macro2 Macro
'
 
'
 
    Sheets("EXPORT").Select
    Range("A1:AE1").Select
    Selection.Copy
    Sheets("DATA").Select
    ActiveSheet.Paste
    Range("AF1") = "WEEKS"
    i = 2
    While Sheets("EXPORT").Range("A" & i) <> ""
    Sheets("EXPORT").Range("A" & i & ":AE" & i).Copy
    Sheets("DATA").Select
    dl = Range("A1048576").End(xlUp).Row + 1
    Range("A" & dl).Select
    ActiveSheet.Paste
    Sheets("EXPORT").Range("AF1:BH1").Copy
    Sheets("DATA").Range("AF" & dl).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("A" & dl & ":AE" & dl).Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("A" & dl & ":AE" & dl + 28), Type:=xlFillCopy
    Sheets("EXPORT").Range("AF" & i & ":BH" & i).Copy
    Sheets("DATA").Range("AG" & dl).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
        i = i + 1
   Wend
End Sub

.
malheusement je n'arrive pas à mettre mon classeur en ligne

merci

Bonjour,
ça c'est de l'optimisation!

Salut, inspire-toi de ceci