Comme intégrer une variable numerique d dans FormulaR1C1?

Bonjour,

J'ai cette fois, un problème d'écriture avec ActiveCell.FormulaR1C1 pour utiliser une variable lettre d même quand elle demeure identique à l'intérieur d'une boucle For Next. Je travaille en valeur relative

Voici le début du programme
ActiveCell.Offset(0, 0).Range("A1").Select
b = ActiveCell.Offset(0, 0).Range("A1").Row : d = 1 + b
dans l'exemple b est la ligne de départ où sur la feuille choisie je fais démarrer ma routine. La valeur de b est 8 (d=9). si je change de ligne de départ FormulaR1C1 générera une inexactitude

ActiveCell.Offset(2, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=R[-9] C[-1]" ça marche
mais si je recommence mon travail d'un autre endroit la valeur 9 ne sera plus adaptée

avec ActiveCell.FormulaR1C1 = "=R" & (-d) & "C[-1]" ça coince
avec ActiveCell.FormulaR1C1 = "=R[-d] C[-1]" id ça coince

Dans mon programme véritable la formule exacte est plus complexe
ActiveCell.FormulaR1C1 = "=RC[-1]& R[-2]C[4]&R[-9]C[-1]"
c'est une date Jour&Mois&Année
Comment écrire correctement tout cela
D'avance merci