Compteur dépenses "par mois"

Bonjour à tous,

Voila j'ai trouvé un petit module pour cumuler mes dépenses
Je saisie 5 en B4 puis 10 dans la même cellule Excel dans la colonne suivante stock 5+10 soit affiche 15.etc...
Je voudrais que cette fonction stock mes valeurs en fonction du mois.
J'affiche "aujourd'hui()" en B2 et que le cumul s'affiche dans la colonne avril F4.
J'espère être claire,

Private Sub Worksheet_Change(ByVal c As Range)
'00
Dim plage As Range
On Error Resume Next
Set plage = Range("b4:b10")
If Not Intersect(c, plage) Is Nothing Then
c.Offset(, 1).Value = c.Offset(, 1).Value + c.Value
End If
End Sub

Soyez indulgent je ne suis pas un expert VBA
Sinon par une formule Excel!

Merci de votre réponse
Cordialement
PS je n'ai pas trouvé comment joindre un fichier