Bonsoir à tous

Bonsoir danseurcountry3

S'il n'est pas trop tard :

Sub ListeFichiers()
Dim nf
  Application.ScreenUpdating = False
  repertoire = "D:\musique\Amy Beach"  ' à adapter
  nf = Dir(repertoire & "*.mp3") 'premier fichier mp3
  Do While nf <> ""
    Selection.TypeText (nf) & vbCrLf
    nf = Dir() ' suivant
  Loop
  Application.ScreenUpdating = True
End Sub

A te lire

Eric