somme de cellules à conditions qu'elles aient la même valeur. (VBA sur Excel)

Bonjour,

Je dois créer un programme vba pour additionner le contenu de cellules de la colonne C seulement si la cellule active de la colonne de D a le même contenu que la cellule de la colonne D précédente. Si le contenu n'est pas le même alors la somme obtenue jusque là s'inscrit dans une cellule donnée(de la colonne F), puis on recommence avec la ligne(de la colonne D) d'après jusqu'à que le contenu soit différent.
Pièce jointe 194568

Voici le code:

Sub SommeRREgrenoble(lignedsomme As Integer, ligneresultats As Integer)

Dim Somme As Double
Dim i As Integer
Somme = 0
Dim annee As Double

For i = lignedsomme To 523

If Cells(i + 1, 4) = Cells(i, 4) Then
Somme = Somme + Cells(i + 1, 3)
End If

Next i

Cells(ligneresultats, 6) = Somme

End Sub