Insertion d'une variable dans SUBTOTAL

Bonjour,

je débute en VBA excel.
Je voudrais intégrer une variable dans ma formule SUBTOTAL en VBA excel
Car selon les fichiers que je traite il n'y a pas toujours le même nombre de lignes.
Je cherchais à remplacer le code 1 par le code 2 mais ça ne marche pas.
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[2]C:R[1000]C)"
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[2]C:R[NBLIGNE]C)"
(le nb de lignes est stocké dans la variable NBLIGNE)
Comment puis-je faire?

Merci d'avance pour votre aide