Bonjour à tous,
Une proposition à l'aveugle
Sub RechercheX()
Dim SourceWorkbook As Workbook
Dim DestinationWorksheet As Worksheet
Dim SourceWorksheet As Worksheet
Dim DerniereLigne As Long
Dim i As Long
' Ouvrir le fichier source "Stock" (remplacez le chemin d'accès au besoin)
Set SourceWorkbook = Workbooks.Open("CheminVersStock.xlsx")
' Définir la feuille de destination (où vous souhaitez placer les résultats)
Set DestinationWorksheet = ThisWorkbook.Sheets("Feuil1") ' Remplacez "Feuil1" par le nom de votre feuille de destination
' Définir la feuille source "Stock" (remplacez "Feuil1" par le nom de votre feuille source)
Set SourceWorksheet = SourceWorkbook.Sheets("Feuil1") ' Remplacez "Feuil1" par le nom de votre feuille source dans le fichier "Stock"
' Trouver la dernière ligne avec des données dans la colonne A de la feuille de destination
DerniereLigne = DestinationWorksheet.Cells(DestinationWorksheet.Rows.Count, "A").End(xlUp).Row
' Boucler à travers les valeurs dans la colonne F de la feuille source "Stock"
For i = 1 To DerniereLigne
' Effectuer une recherche VLOOKUP et placer le résultat dans la colonne B de la feuille de destination
DestinationWorksheet.Cells(i, "B").Value = Application.WorksheetFunction.VLookup(DestinationWorksheet.Cells(i, "F").Value, SourceWorksheet.Range("F:G"), 2, False)
Next i
' Fermer le fichier source "Stock"
SourceWorkbook.Close SaveChanges:=False
End Sub