Bonjour le forum

me revoilà avec un autre problème que je sollicite votre aide pour le solutionner.
je voudrais obtenir l'équivalent de sommprod mais en vba dans ma feuil2

Feuil5
A D
263/01/2012/0001 322 505,23
263/01/2012/0001 746 100,87
263/01/2012/0001 10 305,35
263/01/2012/0002 1 506,22
263/01/2012/0002 4 509,22

Résultat souhaité en Feuil2
A D
263/01/2012/0001 1 078 911,45
263/01/2012/0002 6 015,44

j'ai adapter un code que j'ai trouver en cherchant sur le net il régénère beaucoup d'erreurs.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub sommprod()
Dim fin_Feuil_Données As Integer
Dim fin_Feuil_Result As Integer
Dim i As Integer
Dim x As Integer

Feuil_Données = "Feuil5"
Feuil_Result = "Feuil2"

With Feuil5
    fin_Feuil_Données = .Range("A65000").End(xlUp).Row
    If fin_Feuil_Données = 1 Then MsgBox "Votre colonne A est vide": Exit Sub
        'Suprimme les doubles items
        For i = fin_Feuil_Données To 2 Step -1
            For x = i - 1 To 2 Step -1
                If (Cells(i, 1) = Cells(x, 1) Or Cells(x, 1) = "") Then
                    Cells(i, 1).EntireRow.Delete
                End If
            Next x
        Next i
     'Va chercher les montant
    fin_Feuil_Result = Feuil2.Range("A65000").End(xlUp).Row
     Feuil2.Columns("D:D").Clear
    For i = 2 To fin_Feuil_Result
        For x = 2 To fin_Feuil_Données
            If Feuil2.Cells(i, 1) = Feuil5.Cells(x, 1) Then
               Feuil2.Cells(i, 4).Value = Feuil2.Cells(i, 4).Value + Feuil5.Cells(x, 4).Value
               'If Sheets(Feuil_Result).Cells(i, 1) = Sheets(Feuil_Données).Cells(x, 1) Then
               'Sheets(Feuil_Result).Cells(i, 4).Value = Sheets(Feuil_Result).Cells(i, 4).Value + Sheets(Feuil_Données).Cells(x, 4).Value
            End If
        Next
    Next
    End With
End Sub
une erreur incompatible de type sur la ligne coloré

Merci d'avance et bonne journée