Tri croissant ListBox

Sub UserForm_Initialize()  
Dim liste  
With Sheets("Rép-Questions Comité")  
liste = Application.Transpose(.Range("C5:C" & .Range("C5000").End(xlUp).Row))  
TrieTableau liste, 0, UBound(liste)  

Me.choix.List = liste  
Me.choix.MultiSelect = fmMultiSelectMulti  

End Sub

Sub TrieTableau(T, Deb As Long, Fin As Long)  
    'auteur Thierry Pourtier (Ti) méthode de tri quicksort (Nb éléments>1000) _  
            décédé accidentellement (moto) le 13 novembre 2010; Adieu l'Ami.  
   Dim IndiceInf As Long, IndiceSup As Long  
   Dim Temp1, Pivot  
     
     IndiceInf = Deb  
     IndiceSup = Fin  
     Pivot = UCase(T((Deb + Fin) \ 2))  
     Do  
       While UCase(T(IndiceInf)) < Pivot  
         IndiceInf = IndiceInf + 1  
       Wend  
       While Pivot < UCase(T(IndiceSup))  
         IndiceSup = IndiceSup - 1  
       Wend  
       If IndiceInf <= IndiceSup Then  
         Temp1 = T(IndiceInf)  
         T(IndiceInf) = T(IndiceSup)  
         T(IndiceSup) = Temp1  
         IndiceInf = IndiceInf + 1  
         IndiceSup = IndiceSup - 1  
       End If  
     Loop Until IndiceInf > IndiceSup  
     If Deb < IndiceSup Then TrieTableau T, Deb, IndiceSup  
     If IndiceInf < Fin Then TrieTableau T, IndiceInf, Fin  
  End Sub

aulieu de  
trie tableau liste,0... 
écrire  
triabulle liste

Sub TriaBulle(T, Optional SensTri As Boolean = True) 
'auteur: Zon sur XLD 
    Dim Test As Boolean, I&, Temp 
     Do 
       Test = False 
       For I = LBound(T) To UBound(T) - 1 
         If (T(I) > T(I + 1) And SensTri) Or (T(I) < T(I + 1) And Not SensTri) Then 
           Temp = T(I) 
           T(I) = T(I + 1) 
           T(I + 1) = Temp 
           Test = True 
         End If 
       Next I 
     Loop Until Not Test 
  End Sub 

Sub UserForm_Initialize()  
Dim mondico As New Collection, f As Worksheet, i As Integer, k As Integer  
Set f = Sheets("Rép-Questions Comité")  
On Error Resume Next  
mondico.Add ""  
For k = 5 To f.[C5000].End(xlUp).Row  
    i = 1  
    While i < mondico.Count And f.Cells(k, 3).Value > mondico.Item(i)  
        i = i + 1  
    Wend  
    mondico.Add f.Cells(k, 3).Value, f.Cells(k, 3).Value, i  
Next k  
mondico.Remove (mondico.Count)  
For k = 1 To mondico.Count  
    Me.choix.AddItem mondico.Item(k)  
Next k  
Me.choix.MultiSelect = fmMultiSelectMulti  

End Sub