Bonjour Papyjac, Didier, le Forum

Je vais essayer de te répondre, après plusieurs recherche sur le web, je te propose un autre code que j'ai trouvé, et après quelque tests.... Voici le code.

    Sub ChercherLesFichiers()
        Dim MonChemin As String
        MonChemin = ThisWorkbook.Path & Application.PathSeparator
        Dim NomFichier As String
        
        'Liste des noms de tous les fichiers du dossier
        NomFichier = Dir("")
        
        'Liste des noms de fichiers dont l'extension est TXT
        'NomFichier = Dir(MonChemin, MacID("TEXT"))
        
        'Liste des noms et dossiers des fichiers du dossier
        'NomFichier = Dir(MonChemin, 16)
        
        i = 1
        Do While Len(NomFichier) > 0
            ActiveSheet.Range("A" & i).Value = NomFichier
            NomFichier = Dir
            i = i + 1
        Loop
    End Sub

Quand on ne filtre pas l'extension du fichier, cela rajoute ".locatlized" et ".txt", 

Je n'ai pas peut tester l'extension ".eml"....

NOTA : sur le séparateur de dossier est le ":"

@+Jean-Marie