Bonjour malbjp,

Une méthode, par exemple : utiliser la propriété Selected. Si tu as 10 items dans ta liste (indexés de 0 à 9), tu peux faire une boucle :

For i = 0 To 9
  If ListBox1.Selected(i) = True Then
    '<l'item a été sélectionné>
  End If
Next i

Je t'ai fait un petit exemple. Un Form avec une ListBox et un bouton.
A l'initialize du Form (option MultiSelect), un met en place une liste d'items.
Après avoir choisi plusieurs éléments, en cliquant sur le bouton, on stocke la sélection dans les cellules de la colonne A de Feuil1.

Private Sub UserForm_Initialize()
  ListBox1.Clear
  ListBox1.AddItem "tata"
  ListBox1.AddItem "tete"
  ListBox1.AddItem "titi"
  ListBox1.AddItem "tintin"
  ListBox1.AddItem "toto"
  ListBox1.AddItem "toutou"
  ListBox1.AddItem "tutu"
  ListBox1.AddItem "tyty"
End Sub

Private Sub CommandButton1_Click()
  Dim I As Integer, J As Integer
  Sheets("Feuil1").Range("A1:A8").ClearContents
  J = 0
  For I = 0 To 7
    If ListBox1.Selected(I) Then
      J = J + 1
      Sheets("Feuil1").Cells(J, 1).Value = ListBox1.List(I)
    End If
  Next
End Sub

Salut, en fait c'est tout simple, tu fais une boucle balayant les valeurs de ta liste et pour chacune ".Selected(index)" te permet de savoir si elle est ou non sélectionnée et ".List(index)" te donne sa valeur.

Donc en code, cela donnerait quelque chose du genre :
(je suppose qu'il y a N lignes dans la liste)

for i = 0 to N-1
If ListBox.Selected(i) then
msgbox "la valeur suivante est sélectionnée : " & ListBox.List(i)
end if
next i