'En VBA Public Sub DeleteSelectedItem(ByRef Li As MSForms.ListBox)
Public Sub DeleteSelectedItem(ByRef Li As ListBox)
Dim i As Integer
'on boucle à l'envers pour eviter les erreurs
'd'index suite à une suppression
For i = Li.ListCount - 1 To 0 Step -1
'Si l'element est selectionner => on le supprime
If Li.Selected(i) Then Call Li.RemoveItem(i)
Next
End Sub
'Exemple d'appel
Call DeleteSelectedItem(List1)