Tri date par ordre decroissant

Bonjour,

Je voudrais afficher une liste ou j'ai les dates dans la colonne 2, je veux faire le tri par ordre décroissant.

L'affichage de la liste se fait en cliquant sur un bouton, le code est:

'//////////////////Case Formation initiale-DIPLOME/////////////////////
fin_col_Form_Init = Ws.Cells(6, 256).End(xlToLeft).Column
UF_Profil_Edit1.ListBox_Form_Init.ColumnCount = 2
UF_Profil_Edit1.ListBox_Form_Init.ColumnWidths = "300;100"

For i = 2 To fin_col_Form_Init
UF_Profil_Edit1.ListBox_Form_Init.AddItem Ws.Cells(6, i)
UF_Profil_Edit1.ListBox_Form_Init.List(UF_Profil_Edit1.ListBox_Form_Init.ListCount - 1, 1) = Ws.Cells(7, i)
Next i

Pourr faire le tri j'ai rajouté ces lignes:

Dim y, x As Integer
Dim MyList As Variant

With UF_Profil_Edit1.ListBox_Form_Init
For y = 0 To .ListCount - 1
For x = y To .ListCount - 1
If CDate(.List(x, 1)) > CDate(.List(y, 1)) Then
For c = 0 To 2
MyList = .List(x, c)
.List(x, c) = .List(y, c)
.List(y, c) = MyList
Next c
End If
Next x

.List(y, 2) = Format(.List(y, 2), "####.00")
Next y
End With

Mais le tri ne se fait pas :/ je sais pas ou est l'erreur, car ce code je l'ai utilisé déjà pour faire le tri d'une liste, après avoir sélectionner l'élément concerné dans une 1ere liste afficher son historique dans une 2eme liste.

J'ai rctifié mon erreur le code marche parfaitement, j'ai fais un tri avant de charger ma liste avec les données.