Sub trier(Ncol)
Const Mois = ""
Dim Nelem As Long, Tablo()
Nelem = Me.ListBoxRech.ListCount
'Construction du tableau à trier
For i = 0 To Me.ListBoxRech.ListCount - 1
ReDim Preserve Tablo(0 To i)
Select Case Ncol
Case 1, 3, 5, 6, 7, 8
Tablo(i) = Me.ListBoxRech.List(i, Ncol) & "]" & Space(10 - Len(i)) & i
Case 2, 4, 9
Tablo(i) = Space(10 - Len(Me.ListBoxRech.List(i, Ncol))) & Me.ListBoxRech.List(i, Ncol) & "]" & Space(10 - Len(i)) & i
End Select
Next i
'tri de tablo
tri Tablo, 0, UBound(Tablo)
'écriture des lignes triées en fin de liste
For i = LBound(Tablo) To UBound(Tablo)
Me.ListBoxRech.AddItem
For j = 1 To 9
Me.ListBoxRech.List(Nelem + i, j) = Me.ListBoxRech.List(Val(Split(Tablo(i), "]")(1)), j)
Next j
Next i
'suppression des lignes non triées en tête de liste
For i = Nelem To 1 Step -1
Me.ListBoxRech.RemoveItem i - 1
Next
End Sub