J'ai ajouté cela dans ta macro pour définir le chemin...d'abord
ChDrive qui défini le lecteur par défaut
(de base cela reste C)...ensuite
ChDir pour le chemin...
Sub ListeFichiersMp3()
Application.ScreenUpdating = False
Dim Ligne, Colonne As Integer
Dim monFichier As String
ChDrive "D"
ChDir "D:\mes documents"
monFichier = Application.GetOpenFilename("Fichier texte (*.mp3),*mp3")
Columns("A:H").ColumnWidth = 50
Application.Goto ActiveSheet.Range("A4")
monFichier = Dir("*.mp3")
Do Until monFichier = ""
For Colonne = 1 To 395 Step 55
For Ligne = 0 To 54
ActiveCell.Value = monFichier
ActiveCell.Offset(1, 0).Select
If ActiveCell.Offset(-1, 0) = "" Then
Range("A1").Select
Exit Sub
End If
monFichier = Dir
Next
ActiveCell.Offset(-55, 1).Select
Next
Loop
Application.ScreenUpdating = True
End Sub