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