t valeur avant d'etre entree dans la listbox,elles se trouvent bien dans un tableau d'excel non???dans ce cas tu peux faire un tri juste avant de les rajouter grace a un bouton ki fait:
Range(Feuil1.Cells(i,j), Feuil1.Cells(k, l)).Select
    Selection.Sort Key1:=Range(???), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 
donc la ca fait le tri alphabatique et reste plus k'a enregistrer toutes tes valeurs:
i=1
do until cells(i,?)=""
   listbox1.additem=cells(i,?)
   i=i+1
loop
 
en mettant tou ca dans le private sub d'un commandbutton essaie et tiens moi au courant 