VBA problème adresse relative

Bonjour,

Voila je cherche a definir la plage d'une formule de manière relative a l'aide de VBA :

Mais je n'y arrive alors que je pense que ma variable est corrctement charger. Si quelqu'un peu jeter un oeil dessus merci par avance :

Code :

Dim Fin As Integer
Fin = Range("D65536").End(xlUp).Row


Range("D1").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[2]C:R[Fin]C)"

Merci a Tous.

Bonne journée