Bonjour
Une solution
Modifie ta procédure de tri
Private Sub cmdTri_Click()
Dim x, y As Integer
Dim temp As Variant
For x = 0 To cboMaPlage.ListCount - 1
For y = 0 To cboMaPlage.ListCount - 1
If Val(cboMaPlage.List(x)) < Val(cboMaPlage.List(y)) Then
temp = cboMaPlage.List(CInt(x))
cboMaPlage.List(x) = cboMaPlage.List(y)
cboMaPlage.List(y) = temp
End If
Next y
Next x
End Sub