Bonjour

Mon code mettrai plus de 3 heures à s'executer tel quel. Est-ce que quelqu'un pourrait m'aider pour l'optimiser.
Ci dessous le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Dim i, j As Integer
 
For i = 2 To 8075
    For j = 2 To 10877
 
        If ActiveSheet.Cells(i, 1) = Worksheets("PV").Cells(j, 1) And ActiveSheet.Cells(i, 3) = Worksheets("PV").Cells(j, 3) And ActiveSheet.Cells(i, 2) = Worksheets("PV").Cells(j, 2) Then
                ActiveSheet.Cells(i, 5) = Worksheets("PV").Cells(j, 4)
 
        End If
 
     Next j
Next i
Merci d'avance