Tri alphabétique ComboBox

Bonjour le forum,

Je souhaiterai trier par ordre alphabétique une Combobox. Cela est-il possible ?

Voici le code qui alimente la ComboBox (code tiré et adapté d'un exemple téléchargé sur le forum et dont je ne retrouve plus l'auteur mille excuses !!)

Private Sub UserForm_Activate()

Set zone = Feuil1.Range('F6:F' & Feuil1.Range('F65536').End(xlUp).Row)

For Each cel In zone
If Categorie.ListCount > 1 Then
For x = 1 To Categorie.ListCount - 1
If cel.Value = Categorie.List(x) Then
GoTo suite
End If
Next x
End If
Categorie.AddItem cel
suite:
Next cel

End Sub

Merci