Sub ExplorerRépertoire()
unRép = Dir("L:\Musique\Style\SVG-2\Project\Musique\Sons\*.Mp3*", vbDirectory) '// Extrait la première entrée
Do While unRép <> "" ' Commence la boucle.
I = [Feuil1].Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Cells(I, 1) = unRép
unRép = Dir
Loop
End Sub