bonjour Philippe,
je ne sais pas comment tu veux utiliser tes données, mais tu peux construire un tableau à partir des éléments de ta liste sélectionnés :
Dim I As Integer
Dim tmp As Integer
ReDim myArray(0) As Variant
'************ remplissage du tableau *******
For I = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(I) Then
tmp = tmp + 1
ReDim Preserve myArray(tmp)
myArray(tmp) = ListBox1.List(I)
End If
Next
'************* vérification ****************
For I = 1 To UBound(myArray)
MsgBox I & ' ' & myArray(I)
Next
pour tester ce code, tu peux le placer dans
Private Sub UserForm_Click() par exemple
cordialement