Bonjour à tous!

J'ai une fonction Somme.si et je compte la transformer en code VBA
La fonction est la suivante I2=SOMME.SI('Rbt CCP'!E:E;'List Al Ech'!A2;'Rbt CCP'!C:C)

Je veux calculer la somme des remboursements CCP (à partir de la feuille Rbt CCP) pour chaque client, la liste des CIN des clients ce trouve dans la feuille List Al Ech dans la case A, et je veux copier le résultat dans la colonne I de List Al Ech

J'ai trouvé la fonction SUMIF mais j'ai pas su comment l'utiliser donc j'ai écris ce code avec FIND :

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
35
36
37
38
39
Sub Macro3()
 
0
 
    Dim CIN As Long
    Dim TotalRbtCcp As Double
    Dim nb_lignes As Long
    Dim numero_ligne As Long
 
    Sheets("List Al Ech").Select
 
    nb_lignes = WorksheetFunction.CountA(Range("A:A"))
 
 
    For i = 2 To nb_lignes
        numero_ligne = i
 
        If numero_ligne >= 2 And numero_ligne <= nb_lignes Then
            CIN = Cells(numero_ligne, 1)
            TotalRbtCcp = 0
 
            Dim Found As Range
            Dim Indice As Long
            MsgBox TotalRbtCcp
 
            With Worksheets("Rbt CCP")
                 Set Found = .Range("F2:F12000").Find(CIN, LookIn:=xlValues, LookAt:=xlWhole)
                    If Not Found Is Nothing Then
                        Indice = Found.Row
                        TotalRbtCcp = TotalRbtCcp + Cells(Indice, 2)
                        MsgBox TotalRbtCcp
                    End If
 
            End With
            Cells(numero_ligne, 9) = TotalRbtCcp
        End If
    Next
 
End Sub
Bon ça n'a pas marché bien évidemment

HELP!!