Youpi! Ca marche!
En couplant tes conseils et mes recherches sur Internet, voici une solution qui fonctionne:
ReDim Preserve manager(i)
On Error Resume Next
manager(i) = Application.VLookup(sheet1.Cells(i, 26).Value, sheet2.Range("B4:C461").Value, 2, False)
On Error GoTo 0
Je ne sais pas si...