Regroupement, format et tri date dans combobox

Bonsoir à tous,

J'ai tant bien que mal réussi à faire un formulaire qui me servira à corriger une BD. J'effectue des sélections en cascade avec des ComboBoxs.
Avec la 2ème combobox, je sélectionne une date. Mon problème réside à ce niveau. Je voudrai récupérer la date au format "mmm yyyy" (date tri décroissant dans combobox),
mais pour le même mois je peux avoir différents jours. Mes essais se sont soldés par des echecs. si je mets ceci:

Code:

---

1 2	If C = Me.ComboBox1 Then mondico(C.Offset(, -15).Value) = Format(C.Offset(, -15).Value, "mmm yyyy") 'test1 If C = Me.ComboBox1 Then mondico(C.Offset(, -15).Value) = CDate(C.Offset(, -15).Value) 'test2

---

avec la ligne test1, dans la combobox suivante, je ne récupère que le premier item.
Avec la ligne test2, je récupère toutes les dates

Je voudrai aussi récupérer les dates dans la combobox de la plus récente à la plus ancienne.

En espérant avoir été clair. Je vous remercie par avance.

Cordialement,