Voici le bout de programme
l=1
fichiers = Dir("Macintosh HD:Users:xxx:Documents:zzz", MacID("XLS8"))
Cells(l, 1).Select
ActiveCell.Value = fichiers
Do
fichiers = Dir("")
If fichiers = "" Then
Exit Do
End If
l = l + 1
Cells(l, 1).Select
ActiveCell.Value = fichiers
Loop