trier date et ordre des colonnes dans listBox

Bonjour à tous,
Je rencontre deux problème dans mon userform :
Je souhaiterai trier des dates par mois. les dates sont écrites au format jjjj j mmmm aaaa :
Mardi 24 avril 2003
Jeudi 17 janvier 2003
.....

J'utilise le script suivant pour créer des colonnes dans un ListBox:

Private Sub Userform_Initialize()
DerLigne = Sheets("EMPLOYEUR").Range("B1501").End(xlUp).Row
PlageList = Sheets("EMPLOYEUR").Range("G2:O" & DerLigne).Address

' Tri mes dates
Worksheets("EMPLOYEUR").Range("A2").Sort _
order1:=xlAscending, _
Key1:=Worksheets("EMPLOYEUR").Columns("O"), _
Header:=xlGuess

List_Result_Cal.ColumnCount = 9
List_Result_Cal.RowSource = "EMPLOYEUR!" & PlageList
List_Result_Cal.ColumnWidths = "200;0;40;120;0;0;0;0;80"
End Sub

Pas très orthodoxe au niveau de la fonction ColumnWidths ou je masque des colonnes par 0 point pour ne pas les afficher.
En fait Je souhaiterai créer des colonnes qui ne sont pas en ordre dans ma liste, par exemple avoir dans l'ordre :
La colonne 4;
La colonne 1;
La colonne 7; Etc ...
Cela est t'il possible ?
Merci à vous et bonne semaine
Willy