Recherche et addition de membres similaires

Bonjour à tous!

Je viens vers vous car la je bloque vraiment...
J'espère que vous pourrez m'aider, voici mon problème:
J'ai un tableau avec des dates dans une colonne et des quantités associées aux dates dans une autre.
Je souhaiterai pouvoir grouper les quantités par date et les additionner. C'est a dire pour un jour donné ne plus avoir plusieurs quantité mais une seule.
J'avais deja pensé à ca mais cela parait trop lourd pour mon PC

Sub recap()
Dim i As Integer
Dim j As Integer
For i = 3 To 11000
For j = 1 To 11000
If Worksheets("ARCHIVE 06").Cells(i, 2) = Worksheets("Feuil2").Cells(j, 1) Then
Worksheets("Feuil2").Cells(j, 2) = Worksheets("Feuil2").Cells(j, 2) + Worksheets("ARCHIVE 06").Cells(i, 9) + Worksheets("ARCHIVE 06").Cells(i, 10)
End If
Next
Next
End Sub

Merci par avance de votre aide...