Accélerer Un Macros

Bonjour tout le monde;

SVP j'ai créé un macros qui marche mais il est trops lent, comment je peux l'accélerer?

Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim i As Integer i = 0 For k = 11 To 51   For J = 1 To 100000 If Sheets("DATA").Cells(J, 52).Value = "ASSY" And Sheets("ANALYSIS").Cells(2, 5).Value = Sheets("DATA").Cells(J, 53) And Sheets("ANALYSIS").Cells(5, 5).Value = Sheets("DATA").Cells(J, 54) And Sheets("ANALYSIS").Cells(6, 5).Value = Sheets("DATA").Cells(J, 51) And Sheets("ANALYSIS").Cells(k, 2).Value = Sheets("DATA").Cells(J, 34) Then i = i + 1 End If Next Sheets("ANALYSIS").Cells(k, 9).Value = i i = 0 Next

---

Je sais pas si c'est ça qui ralentit (je sais pas si tu utilises des formules ou non) mais moi j'ai pour habitute d'utiliser cela au début des programmes :

Code:

---

1 2 3 4 5

'enlever le calcul automatique d'Excel Application.Calculation = xlCalculationManual   ' désactication du rafraichissement de l'écran pendant la macro Application.ScreenUpdating = False

---

et ça à la fin

Code:

---

1 2 3 4 5

'remettre le calcul automatique Application.Calculation = xlCalculationAutomatic   'rafraichissement de l'écran pendant la macro Application.ScreenUpdating = True

---

cela évite à Excel si jamais tu utilises des formules de recalculées tous à chaque boucle. Là il fait tous le programme et calcul tout à la fin.