Incrémenter 1 cellule sous condition d'une quantité cumulée

Sub increment()
    Dim lig As Long, cpt As Long
    For lig = 3 To Cells(Rows.Count, 1).End(xlUp).Row
        cpt = cpt + Cells(lig, 2)
        If cpt > Cells(lig, 1) Then
            Cells(lig, 3) = Cells(lig - 1, 3) + 1
            cpt = 0
        Else
            Cells(lig, 3) = Cells(lig - 1, 3)
        End If
    Next lig
End Sub 

Sub Incrementer_cell_sous_cond_qte_cumul()
'
' Incrementer_cell_sous_cond_qte_cumul Macro
' Macro enregistrée le 09/10/2012 par gkuissi
'

'
    Dim lig As Long, cpt As Long
    For lig = 3 To Cells(Rows.Count, 1).End(xlUp).Row ' de la ligne 3 à la dernière ligne remplie colonne A
        cpt = cpt + Cells(lig, 2) ' additionner B
        If cpt > Cells(lig, 1) Or Cells(lig, 1) <> Cells(lig - 1, 1) Then ' si maxi atteint ou si A change
            Cells(lig, 3) = Cells(lig - 1, 3) + 1 ' incrémenter la valeur précédente en C
            cpt = 0 ' raz du compteur
        Else
            Cells(lig, 3) = Cells(lig - 1, 3) ' sinon recopier la valeur précédente en C
        End If
    Next lig
End Sub