Dim i%, j%
Dim Temp$
'
With ComboBox1
For i = 0 To .ListCount - 2
For j = i + 1 To .ListCount - 1
If .List(i, 2) › .List(j, 2) Then
' bien mettre i et j au lieu de x et y
Temp = .List(j, 2)
.List(j, 2) = .List(i, 2)
.List(i, 2) = Temp
' idem pour les autres colonnes...
End If
Next j
Next i
End With