Bonjour le forum,

J'ai un onglet de plusieurs dizaines de milliers de lignes (nommé WsBase dans le code ci-dessous). Quotidiennement, je dois y rapporter des infos que je trouve dans l'onglet WsListeArt, colonnes 2 et 3. Pour effectuer la recherche, j'utilise ce code:

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
 
Application.ScreenUpdating=False 
 
...
 
DerLigBase = WsBase.[A65536].End(xlUp).Row
For i = 2 To DerLigBase
    With WsListeArt.Range("A2:A" & WsListeArt.[A65536].End(xlUp).Row)
        Set C = .Find(WsBase.Cells(i, 26))
            WsBase.Cells(i, 31) = WsListeArt.Cells(C.Row, 2)
            WsBase.Cells(i, 32) = WsListeArt.Cells(C.Row, 3)
    End With
Next i
 
...
 
Application.ScreenUpdating= True
mais j'aurais aimé savoir si on pouvait améliorer ce code afin d'améliorer la vitesse de recherche?