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 : Sélectionner tout - Visualiser dans une fenêtre à part
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