Z = Application.WorksheetFunction.VLookup(plant1lect.Caption, Sheets("Feuil1").Range("A5:F18"), 6, False) & ".jpg"
Dim Z As String
Z = Application.VLookup("Pommard", [A2:B5], 2, False) & ".jpg"
MsgBox Z
Dim Z As String
Z = Application.VLookup("Pomard", [A2:B5], 2, False) & ".jpg"
MsgBox Z