Soustotal Sum et Count

Bonjour,

J'aimerai realiser deux sous totaux different sur deux colonnes differentes via vba sur le resultat d'une requete, j'utilise la fonction basique de vba (ci-dessous) mais en realisant la deuxieme VBA supprime la premiere...

Comment puis je faire pour que les deux ("Sum" et "count")apparaissent dans mon resultat ?

'Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(6 _
), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
'Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(5), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True


merci d'avance