Bonsoir
les 2 formules "match" fonctionnent bien si elles trouvent une solution à la recherche
'Cells(ligne, "B").Value = WF.Index(rang, WF.Match(Cells(ligne, "A") & 1, code, 0))
Cells(a, 2).Value = WorksheetFunction.Index(rang, WorksheetFunction.Match(Cells(a, 1) & 1, code, 0), 0)...