Bonjour damien14 , le forum,
Dommage que tu n'ais pas joint ton fichier, , tu aurai alors reçu une réponse adaptée.
Sinon, as-tu essayé de doubler les guillemets à
Sheet("Stock proto")
?
If IsEmpty(.Cells(i, 10)) Then .Cells(i, 10).FormulaR1C1 = "=IF(RC[-9]="""","""",IFERROR(VLOOKUP(RC[-8],Sheet(""Stock proto"").(C[2]:C[3]),2,False),""0""))"
Cordialement,