Sub cumul()
If [A3] = "" Then Exit Sub 'si A3 est egal a rien je fais rien
Set ShR = ActiveWorkbook.Sheets("R") 'SHR = a feuille R
Set liste = CreateObject("scripting.dictionary")???
cible = Application.Match([A3], [B:B], 0) cible =je determine la plage
If IsError(cible) Then MsgBox "Date inconnue": Exit Sub si je trouve pas la date j ouvre une box
For lig = 2 To ShR.Cells(Rows.Count, 1).End(xlUp).Row lig= de la 2 ème ligne jusqu'a la derniere non vide
If ShR.Cells(lig, 4) = "bob" And ShR.Cells(lig, 3) = [A3] Then liste(ShR.Cells(lig, 3).Value) = liste(ShR.Cells(lig, 3).Value) + ShR.Cells(lig, 2)' si lig colonne 4 est = bob ect...
Next lig
Cells(cible, 3) = liste.Item([A3].Value) comprends pas liste item
End Sub