Prob.VB excel insertion sous-total

Bonjour,


je me casse les dents sur un problème sûrement TRES simple mais je ne suis pas TRES doué.
Voilà, j'essaie d'insérer un sous-total dans une cellule via une macro.
Je ne suis pas très doué mais j'y arrive quand même.
Le problème est que la plage de sous total varie.

ex :
le code pourrait être celui-ci

Range("H" & Range("H65536").End(xlUp).Row + 1).Select 'je sélectionne la dernière cellule vide
ActiveCell.FormulaR1C1 = "=SOUS.TOTAL(R[-6]C:R[-1]C)" 'j'insère un sous total

Cependant la plage de calcul du sous total varie selon le nombre de ligne, donc au fur et à mesure que je rajoute des lignes, le sous total ne s'effectue toujours que sur une plage de calcul fixe.

Est-il possible d'avoir dans cette macro une plage de cellules à calculé qui serait en fonction du nombre de ligne au dessus-d'elle ?

Je ne sais pas comment faire, quelqu'un pourrait-il me diriger un peu ?
merci d'avance pour vos précieux conseils