Récupérer sélection multiple d'une ListBox

Bonjour,

J'ai un UserForm avec une ListBox : ListBoxDocuments
Elle permet la sélection multiple.

J'aimerais récupérer les informations de cette sélection dans une liste par exemple pour ensuite traiter les données une à une

J'ai tenté :

Set ListDocs = CreateObject("Scripting.Dictionary")
With ListBoxDocuments
    For i = 0 To .ListCount - 1
        If .Selected(i) = True Then
            ListDocs.add ListBoxDocuments.item(i)
            NbDocs = NbDocs + 1
        End If
    Next i
End With

Mais ça ne fonctionne pas, des idées ?

J'aimerais également ouvrir un second USF avec un MultiPage (Nombre de page = Nombre de Documents sélectionnés; Nom de chaque page = Noms de chaque document sélectionné)

J'ai essayé ça :

Private Sub UserForm_Initialize ()

For i = 2 to NbDocs
      Me.MultiPage1.Pages.Add
      Multipage1.Pages.Caption = "Test" 'Ici il faudrait utiliser les données de la sélection multiple
Next i

End Sub

Ci joint le fichier https://www.cjoint.com/c/IAEpjTtlhhm

Je continue de rechercher une solution,
Merci d'avance