Bonjour à toutes & à tous, bonjour
@zozo
À partir de mon téléphone, donc sans filet !
...
Dim WSh1 as Worksheet, WSh2 as Worksheet, rg as range, C, Valeur_cherchée
Set Wsh1 = ActiveSheet ' ta feuille 1
Set Wsh2 = Worksheets("CHGE-DIRECT")
Set rg= Wsh1.[D1:G1] 'à adapter
For each C in rg
Valeur_cherchée = worksheetfunction.Vlookup(C, Wsh2.[A11:M87], 13, False)
'Faire ce que tu veux avec Valeur_cherchée
Next C
...
À bientôt