Bonjour sans plus de précision sur votre requête celà va être assez difficile d'être précis.
Un exemple de récupération des informations d'une lisbox à choix multiple.
temp=résultat l'un derrière l'autre des informations sélectionnées.
A adapter si la requête est lancée pour chacun des résultats alors la requête devra être placé dans la boucle ?
Private Sub CommandButton1_Click()
Dim i As Byte
'boucle sur les éléments de la listbox
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i)
Next i
ActiveCell.Value = temp
Unload Me
End Sub