Bonjour a tous,

J'aimerais optimiser le code ci dessous car ca tourne beaucoup trop lentement.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
For l = 2 To .Range("AA10000").End(xlUp).Row
Longueur = 10 - Len(.Range("AA" & l))
.Range("AA:AA").NumberFormat = "@"
.Range("AA" & l).Value = Left("0000000000", Longueur) & Range("AA" & l)
Next l
 
For j = 2 To .Range("AA10000").End(xlUp).Row
    For k = 2 To .Range("AA10000").End(xlUp).Row
 
If IsError(.Range("AA" & k).Value) Then
Else
    If .Range("A" & j).Value = .Range("AA" & k).Value Then
        .Range("E" & j).Value = .Range("E" & j).Value & "," & .Range("AB" & k).Value
    End If
End If
    Next k
Next j
Merci pour votre aide,