Somme "spéciale"

Sub Macro1()

Dim D As Integer
Dim Max As Integer

    D = Range("A65536").End(xlUp).Row 'Calcul dernière ligne
    
    For i = 2 To D
        Range("A" & i) = Range("A" & i).Value 'Transforme le format texte en nombre pour calculer le max
    Next
    
    Max = Application.WorksheetFunction.Max(Range("A2:A33")) 'Calcul du max
       
    For i = 1 To Max 'Permet de "clore les groupes"
        Range("B" & D + i) = i
        Range("A" & D + i).Formula = "=RC[1]"
    Next
    
    Range("H2").FormulaArray = "=SUM(IF(ROW(test)=ROW(),plageS,IF(test>RC[-7],plageS,0)))" 'Formule matricielle ("[-7]" car je n'utilise plus la même colonne)
    Range("H2").AutoFill Range("H2:H" & D) 'Etendue de la formule matricielle
End Sub

Sub macro1()
Dim i As Long, montant As Double, k As Integer, j As Long
For i = 2 To Range("A65535").End(xlUp).Row 
    montant = 0
    For k = 4 To 7: montant = montant + Cells(i, k): Next k
    For j = i + 1 To Range("A65536").End(xlUp).Row
         If Range("A" & j) <= Range("A" & i) Then Exit For
         For k = 4 To 7: montant = montant + Cells(j, k): Next k
    Next j
    Range("H" & i) = montant
Next i
End Sub

Public Function somme_plus(ligne As Long) As Double
    Application.Volatile
    Dim i As Long, montant As Double, k As Integer, j As Long
    i = ligne
    montant = 0
    For k = 4 To 7: montant = montant + Cells(i, k): Next k
    For j = i + 1 To Range("A65536").End(xlUp).Row
         If Range("A" & j) <= Range("A" & i) Then Exit For
         For k = 4 To 7: montant = montant + Cells(j, k): Next k
    Next j
    somme_plus = montant
End Function

=somme_plus(ligne())

Sub CalculPR2()

Dim i As Long, Montant As Double, k As Integer, j As Long, D As Long, V As Long, Cel As Range

With ActiveWindow
    .WindowState = xlMaximized
    .Zoom = 82
End With

D = Range("A65535").End(xlUp).Row

'Suppression/Insertion colonnes
    Columns("O:X").Delete
    Columns("K:K").Delete
    Columns("I:I").Delete
    Columns("F:G").Delete
    Columns("C:D").Delete
    Columns("A:A").Insert Shift:=xlToRight
    

    Range("A2").FormulaR1C1 = "=LEFT(TRIM(SUBSTITUTE(RC[1],""."","""")),2)"
    Range("A2").AutoFill Range("A2:A" & D)
    Range("A2:A" & D).HorizontalAlignment = xlCenter
    Range("A2:A" & D).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
For i = 2 To D
    Montant = 0
    For k = 6 To 9
     Montant = Montant + Cells(i, k) 'Ca, ça marche
    Next k
    For j = i + 1 To D
         If Range("A" & j) <= Range("A" & i) Then Exit For
         If Range("D" & j) = "A" Then Exit For '### ICI, ça marche pas ###
         For k = 6 To 9
          Montant = Montant + Cells(j, k)
         Next k
    Next j
    Range("J" & i) = Montant
    
    
    Columns("J").NumberFormat = "#,##0.00"
    Range("J1") = "Prix Revient"
    Range("J1").Font.Bold = True
    
    Range("A1").Select
    
Next i
End Sub

    For i = 2 To D
        If Range("D" & i) = "A" Then
            For j = i + 1 To D
                If Range("A" & j) > Range("A" & i) Then
                    Range("F" & j & ":I" & j).Clear
                Else: Exit For
                End If
            Next
        End If
    Next