Bonjour à tous

J'ai 2 listbox à choix multiple sur un userform
j'ai un bouton qui grace à une boucle, charge la deuxième listbox avec les Item sélectionner et juste là ça fonctionne, mais impossible de supprimer l'item
J'ai essayé toute les syntaxes que j'ai pu trouver sans aucun résultat

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub action()
 
Dim Tableau() As String, Inscrire() As String
    Dim i As Integer, L As Integer, P As String, y As Long, A As String, Li As Integer, Z As Integer
 
    For y = 0 To Box1.ListCount - 1
 
    With Box1
        If .Selected(y) = True Then        
             TBox1.AddItem .List(y) ' ça ça fonctionne
             .RemoveItem y 'là ça plante, .RemoveItem (y) ça plante aussi,              
             End If
    End With
    Next y
 
End Sub
L'erreur doit être encore grosse comme une maison mais j'ai grandement besoin de votre aide pour la trouvée

Merci d'avance

La listbox "Box1 était chargée avec "Rowsource" alors j'ai pensé que ça pouvait venir de là, mais même si la list est chargée avec une boucle, ça ne change rien : impossible de supprimer l'Item (y)