Salut,
C'est ce genre de truc que tu veux ? à mettre dans l'évènement click de ton bouton.
Dim Item
On Error Resume Next
With ListBox1
Item = .List(.ListIndex)
.List(.ListIndex) = .List(.ListIndex - 1)
.List(.ListIndex - 1) = Item
.Selected(.ListIndex - 1) = True
End With
On Error GoTo 0
A+++