' On commence par lire le contenu de la ListBox par la fin,
' comme sur une simple feuille excel ou l'on veut supprimer une ligne.
For h = ListBox2.ListCount - 1 To 0 Step -1
'on ne s'occupe que des items sélectionnés
If ListBox2.Selected(h) Then
'les items sont contenu dans "list" du ListBox de 0 à X items (X étant ListCount)
'On rend donc visible la feuille ou le nom est contenu dans 'list(h)' de la ListBox2
Worksheets(ListBox2.List(h)).Visible = xlSheetVisible
'Ci-dessous on ajoute à ListBox1 l'item que l'on va supprimer de la liste de ListBox2
'afin de le rendre disponible sans relancer l'userform
ListBox1.AddItem Worksheets(ListBox2.List(h)).Name
'Puis on supprime de ListBox2 l'item qui n'a plus lieu d'être présente dans cette liste.
ListBox2.RemoveItem (h)
' Cette ligne peut être écrite de cette façon
' ListBox2.RemoveItem h
End If
Next h
End Sub