[/Sub recherchev()
Dim F1, F2 As Worksheets
Set F1 = BASES
Set F2 = SOLDE
Application.ScreenUpdating = False
With F1
derlig = .Cells(.Rows.Count, "D").End(xlUp).Row
For i = 3 To derlig
.Range("K" & i).Value = WorksheetFunction.VLookup(.Range("J" & i).Value, F2.Range("E3:F20000"), 2, False)
Next i
End With
End Sub
CODE]
Puisque mon fichier à plus de 50000 lignes comment rendre cette recherche plus rapide.
Merci d'avance pour vos réponses