re
A la place de
Cells(a, 2).Value = WF.Index(rang, WF.Match(Cells(a, 1) & 1, code, 0))
j'ai tenté
Cells(a, 2).Value = Application.WorksheetFunction.Index(rang, Application.WorksheetFunction.Match(Cells(a, 1) & 1, code, 0), 0)
et
Cells(a, 2).Value = WorksheetFunction.Index(rang...