Groupement de données type TCD en VBA

Bonjour à tous (et bonne année il paraît),

Cela fait longtemps que je ne vous ai pas sollicités mais aujourdhui je suis face à un petit soucis. J'ai déjà vu la réponse à ma question sur ce forum un jour lointain mais impossible de retrouver ma solution...

J'ai un tableau de données avec des numéros de référence, et des montants.
Je souhaite EN VBA faire un groupement de ces données à la manière d'un TCD. Que toutes les ref numéro 1 soient groupées, que les ref 2 (le sous groupe) le soient également avec une somme de montants associés (cf. le fichier joint)

Sauf que je n'y arrive pas.

Pouvez vous m'aider svp ?
Merciii

Bonjour

Une proposition:

Sub TCD()
Dim i&
Dim D As Object
Dim T As Variant, K As Variant
Dim Sh As Worksheet

Set Sh = Sheets("Feuil1")
Set D = CreateObject("Scripting.Dictionary")

With Sh
    For i = 1 To .Cells(Rows.Count, 1).End(3).Row
        D(.Cells(i, 1) & ";" & .Cells(i, 2)) = D(.Cells(i, 1) & ";" & .Cells(i, 2)) + .Cells(i, 7)
    Next i
End With

ReDim T(1 To D.Count, 1 To 3)
i = 0

For Each K In D.Keys
    i = i + 1
    T(i, 1) = Split(K, ";")(0)
    T(i, 2) = Split(K, ";")(1)
    T(i, 3) = D(K)
Next K

Sh.Cells(6, 18).Resize(D.Count, UBound(T, 2)) = T
End Sub

Cordialement

Au top merci. Il faudra que je me penche sur le code ce soir