XL 2019 Sous totaux par VBA

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