En se basant sur cette déclaration, ma vision de la chose pourrait être de passer par une procédure événementielle...le but est d'insérer cette formule à chaque saisie de cellule sur la colonne B
Private Sub Worksheet_Change(ByVal T As Range)
If T.Column = 2 Then
If IsNumeric(T.Offset(, -1)) And Not IsEmpty(T.Offset(, -1)) Then
T.Offset(, -1) = Application.Sum(T, T.Offset(, -1))
End If
End If
End Sub