Sous-Total en fonction de fin de ligne variable

[Chester Mefield]

Bonjour,

J'ai une extraction qui pour varier sur plusieurs lignes en fonction du résultat de ma requête.
Cela peut aller d'une cinquantaine de ligne à plus de 500 par exemple.
J'ai un bouton lié à une macro pour calculer les sous-totaux, mais je l'ai enregistrée avec une sélection fixe jusqu'en ligne 5000.
C'est pas le top. Comment puis-je faire pour que le total ne se trouve plus en ligne 5000 mais qu'il soit mobile en fonction du nombre de lignes incrémentées ?

Voici le script.
Sub Sous_Total_Rapport_1()
'
' Sous_Total_Rapport_1 Macro
'

'
Range("A4:J5000").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(7), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Windows("#03-Vtes_prestations_Lux_mars_2018.xlsx").Activate
Windows("#03_CA_&_GLD_Mars_2018.xlsm").Activate
End Sub

Merci par avance pour votre aide.
Bonne soirée,
Chester.

 

[Lone-wolf]

Bonsoir Chester

Le mieux est de l'avoir en A2 par exemple. Ensuite

Range("A2").Value = WorksheetFunction.Subtotal(9, Range("A4:A5000"))