Voici un petit code qui devrait te convenir si tu l'adaptes.
Ici sur le click d'une listbox, tu remplis celle-ci en fonction d'un critère (monom) et d'un calcul pour extraire simplement le numéro qui index tes fichiers.
Tous ce passe dans le répertoire courant, mais tu peux facilement à ajouter un chemin à la fonction dir: a = dir(chemin & "*" & monnom &.......)
Dim monnom
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.Clear
lg = Len(monnom) + 1
a = Dir("*" & monnom & "*.xls")
While a <> ""
ListBox1.AddItem Mid(a, lg + 1, Len(a) - lg - 4)
a = Dir
Wend
End Sub
Private Sub UserForm_Initialize()
monnom = "sousou"
End Sub