Salut à tous !!
Je suis de retour
Avec un petit souci avec une recherche V

En fait j'ai écrit une macro pour une recherche V et elle s'exécute pendant un moment et Excel plante lors de l'exécution parce que j'ai plus de 14000 lignes sur chacunes des feuilles !!!!

Donc la macro ne s'execute pas jusqu'au bout

Mon code est le suivant

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
19
20
21
22
 
Sub Recherche_v()
 
Dim i, j, k, s, Code
 
For i = 2 To Sheets("feuil1").Cells(Rows.Count, 3).End(xlUp).Row
Code = Sheets("feuil1").Cells(i, 3).Value
 
With Sheets("feuil2")
For j = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(j, 1) = Code Then
s = .Cells(j, 2).Value
End If
Next j
End With
 
With Sheets("feuil1")
.Cells(i, 4) = s
End With
Next i
 
End Sub
quelqu'un aurait une solution?
Merci d'avance