La réponse à cette discussion m'a permis de passer de la syntaxe :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-1]C[-2],Feuil2!R[-2]C[-2]:R[11]C,3,0)"
à
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Cells(i1, 12) =  "=VLOOKUP(" & wse.Cells(i1 , 3) & ",'[Table de transco.xls]Table de transco A4'!$A:$D,3,0)"
et j'en remercie l'auteur.
Question similaire pour avoir la syntaxe applicable à IF. Que doit devenir
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveCell.FormulaR1C1 = "=IF(RC[-2]<>0,""D"",""C"")"
pour remplacer
Code : Sélectionner tout - Visualiser dans une fenêtre à part
RC[-2]
par
Code : Sélectionner tout - Visualiser dans une fenêtre à part
wse.Cells(i1 , 4)
? La syntaxe
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Cells(i1, 14) = "=IF(" & wse.Cells(i1 , 4) <> 0 & " ; ""D"" ; ""C"" )"
ne fonctionne pas (wse est correctement défini puisqu'utilisé qlq lignes plus haut dans le vlookup).
Soumis à votre expertise.