Code Vb Sur Excel problème de somme

Sub Calcul()
Dim str As Variant
Dim i As Long
Dim cal As Long
Dim j As Long

    i = 1

    While Worksheets(1).Range("A" & i).Value <> ""
        str = Worksheets(1).Range("A" & i).Value
        cal = 0
        j = 0
        While Worksheets(1).Range("A" & i + j).Value = str
            cal = cal + Worksheets(1).Range("B" & i + j).Value
            j = j + 1
        Wend
        Worksheets(1).Range("C" & i).Value = cal
        i = i + j
    Wend
    
End Sub

Sub regroupe()
Dim i As Long, l As Long
i = 1      'valeur à changer si les cumuls ne commencent pas en ligne 1
Cells(i, 3).Resize(Cells(65536, 1).End(xlUp).Row, 1) = ""
For i = i To Cells(65536, 1).End(xlUp).Row
    Cells(i, 3) = 0
    For l = i To Cells(65536, 1).End(xlUp).Row
        If Cells(i, 1) = Cells(l, 1) Then
            Cells(i, 3) = Cells(i, 3) + Cells(l, 2)
        Else
            i = l - 1
            Exit For
        End If
    Next l
Next i
End Sub