Deplacer Item Listbox via bouton

Bonjour,

Je développe actuellement une application sous access (Formulaire + Base de données) Je dispose d'une listebox lambda qui s'actualise automatiquement selon certains choix de l'utilisateur. Une fois la liste calculée et affichée, j'aimerais que l'utilisateur puisse organiser cette liste en déplacant les elements, en changeant leurs positions dans la liste. J'ai tenté de coder un bouton en VBA permettant de monter un item d'un cran au click dans la liste mais je n'ai pas de résultat. Voici mon code :

Private Sub btn_move_up_Click()
    Dim i As Integer
    Dim it As Object
    
    i = Me.lst_assembly_F.ListIndex
    
           
    If i <> -1 And i <> 0 Then
        it = Me.lst_assembly_F.ItemData(i)
        Me.lst_assembly_F.RemoveItem (i)
        Me.lst_assembly_F.AddItem Item:=it, Index:=i - 1
    End If 
        
    
End Sub

Bien entendu, je compte faire de meme avec un bouton qui descendrait l'item vers le bas.

Je me tiens disponible pour toutes questions.

Merci d'avance.