Bonsoir Sioli
Si j'ai bien compris ta demande, voies ce code :
Sub listefichiers()
Dim maligne As Integer
Dim monfichier As String
maligne = 1 '' sélection dans la cellule A1
monfichier = Dir('*.txt') '' lit dans le répertoire actuel
Do Until monfichier = ''
Cells(maligne, 1) = monfichier
maligne = maligne + 1
monfichier = Dir
Loop
End Sub
Il te lit tous les fichiers du répertoire actuel, te copie tous les fichiers un à un dans la colonne A, attention ils ne sont pas en ordre.
De là tu peux faire une recherche comme tu le veux soit directement, soit tu les récupère dans une listbox...
Cordialement