XL 2019 Sous totaux par VBA

[rounil09]

Bonsoir la liste,
J'ai besoin d'aide pour finaliser mon applicatif.
Il s'agit de faire des sous-totaux par VBA, s'appliquant à des plages de cellules variables.
Ci-joint un fichier explicatif.
Merci par avance à celle ou celui qui me donnera le coup de main.

 

[Pounet95]

Bonsoir,
A mettre dans un module standard
Créer un bouton pour exécuter la macro

PS : les lignes "cachées" sont prises en compte car cellule en colonne D non vide
A toi de voir !

Claude alias Pounet95

Option Explicit

Sub Sous_Totaux_Fruits()
    Dim ligDeb  As Long
    Dim ligFin  As Long
    Dim lig     As Long
    
    'Prendre en base de délimitation la colonne D ( Opération)
    ligDeb = 3
    ligFin = 3
    lig = 3
    Do While Cells(lig, 4) <> ""
        If Cells(lig, 4) = "EN STOCK" Then
            ligFin = lig - 1
            Cells(lig, 16).FormulaR1C1 = "=SUMIFS(R" & ligDeb & "C13:R" & ligFin & "C13,R" & ligDeb & "C4:R" & ligFin & "C4,""=ACHAT"")"
            Cells(lig, 17).FormulaR1C1 = "=SUMIFS(R" & ligDeb & "C13:R" & ligFin & "C13,R" & ligDeb & "C4:R" & ligFin & "C4,""=VENTE"")"
            ligDeb = lig + 1
            ligFin = ligDeb
            lig = lig + 1
        Else
            lig = lig + 1
        End If
    Loop
End Sub

 

[rounil09]

Mille merci POUNET95, ta macro fonctionne nickel.
Et quelle rapidité de réponse !
Bon W.E.