Mettre item dico dans label correspondant

Rebonjour ,

Je croyais pouvoir avancer facilement mais non je rencontre un problème.

J'ai rajouté 2 labels à l'userform que j'ai nommé A et B (données de la colonne 1)

Le code ci-dessous répond en partie à mes attentes, sauf que le résultat est renvoyé sur la feuille

Sub sommer()
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range("a2", [a65000].End(xlUp))
     mondico(c.Value) = mondico(c.Value) + c.Offset(, 3).Value
  Next c
  [F2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys) 'nom label
  [G2].Resize(mondico.Count, 1) = Application.Transpose(mondico.items) 'total à mettre dans label correspondant
End Sub

Je voudrais modifier les 2 dernières lignes de codes pour mettre chaque total dans son label.

mondico.keys contient le nom des labels et mondico.items la somme de chaque label.

Merci beaucoup de m'aider.

@+

Merci, j'ai réussi comme ceci. Cependant, comment mettre en forme monétaire ces 2 labels

par exemple: 2 632,45 €, c'est à dire nombre décimal avec séparateur de milliers et l’euro

Sub sommer()
   Set mondico = CreateObject("Scripting.Dictionary")
   For Each c In Range("a2", [a65000].End(xlUp))
      mondico(c.Value) = mondico(c.Value) + c.Offset(, 3).Value
   Next c
   For Each cle In mondico
      If cle = Me.A.Name Then
         Me.A.Caption = mondico.Item(cle)
      ElseIf cle = Me.B.Name Then
         Me.B.Caption = mondico.Item(cle)
      End If
   Next
   Me.A.Caption = Format(Me.A.Caption, "#,##0.00 €")
Me.B.Caption = Format(Me.B.Caption, "#,##0.00 €")
End Sub

Encore merci.

Bonne soirée.

edit: en fin de compte je me suis bien débrouillé.