Soucis erreur 13 rapport de somme

Bonjour,

J'ai des soucis sur un petit programme que j'ai essayé d'écrire.
Le but est de sommer, pour chaque date en colonne 4, l'ensemble des données de la colonne 3 qui correspondent à cette date.
Le programme ne veut pas se lancer.
Pourriez-vous m'aider?
Merci beaucoup!

Le voici:
Sub controle_donnees()

Dim jour() As Date

Sheets("Feuil1").Activate
j = 1
somme = 0
For i = 2 To 28602
Cells(i - 1, 4).Value = hier

If Cells(i, 4).Value <> hier Then
jour = Cells(i, 4).Value
For k = 2 To 28602
If Cells(k, 4).Value = Cells(i, 4).Value Then
If Cells(k, 2).Value <> "Eur Curncy" Then
quantite = Cells(k, 3).Value
End If
End If
somme = somme + quantite
Next
Sheets("Feuil2").Activate
Cells(j, 1).Value = date
Cells(j, 2).Value = somme
j = j + 1
Sheets("Feuil1").Activate
End If

Next

End Sub