Microsoft 365 insères une ligne après chaque compte avec un sous.total

[iliess]

Bonjour
svp quelle est la méthode la plus rapide pour insères une ligne après chaque compte groupe de compte avec un sous.total
cette macro pour insères une ligne après chaque compte regrouper

Option Explicit
Sub inser_SOUS_TOTAL()
'inseser une ligne apres chaque compte avec un sous.total
'Dim Arr As Variant
Dim Sh As Worksheet
Dim LastRow As Long
Dim i As Long, n As Long
Set Sh = ThisWorkbook.Worksheets("Feuil1")
LastRow = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row
For i = 2 To LastRow
    If Range("A" & i) <> Range("A" & i + 1) Then
        Rows(i + 1 & ":" & i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("A" & i + 1).Value = "Sous Total " & Range("A" & i).Value
        i = i + 1
        LastRow = LastRow + 1
    End If
Next i
End Sub

mais je ne sais pas comment ajouter un sous.total
j'ai pa pu joindre le fichier voici le lien

inseret un sou total pour chaque compte.xlsx

docs.google.com

 

[JHA]

Bonjour à tous,

Il est très facile d'effectuer cela directement dans excel avec l'icone Sous-total de l'onglet données/Plan. Seule restriction, ne pas mettre les données en mode tableau.

Total 89122		13 699 579,38​
Total 89123		2 384 731,14​
Total 89124		778 529,89​
Total 89125		167 498,02​
Total 89129		701 879,85​
Total 89207		1 509 469,26​
Total général	2 980 004 110,57​

Autrement tu peux utiliser Power Query et faire un regroupement, pas de code et pas de formule.
ou encore par TCD

JHA

 

[iliess]

Bonjour Mr @JHA
Merci pour la réponse
Effectivement oui avec excel c'est facile mais je ne peux pas utilisé excel car ma question c'est une partie d'un longue code