tri d'une liste crée dans une zone de liste

Dans une macro, j'ai cré une liste (contrôle zone de liste) et je souhaite trier cette liste. Est-ce que c'est possible et comment. Bien sûr j'ai cherché mais je n'ai pas trouvé.

'** Ajout des éléments de liste
Dim compteur As Integer
Dim Ajout As String
nbre = Worksheets.Count
For Index = 1 To nbre Step 1
If ActiveWorkbook.Sheets(Index).Range("D6").Value = "EVALUATION" Then
Ajout = ActiveWorkbook.Sheets(Index).Range("D5").Value
lbSalarié.AddItem (Ajout)
End If
Next

avec lbSalarié étant le nom de la zone de liste crée sur une feuille
Merci de vos réponses