J'ai beau regarder je ne vois rien (faut que je consulte sans doute)...J'ai plusieurs fichier doc et un fichier xls...
Sub DocAuFondDuCouloirADroite()
rep = ActiveWorkbook.Path & "\*.doc"
fichier = Dir(rep, vbNormal)
Do While fichier <> ""
ActiveSheet.Cells(i + 1, 1) = fichier
i = i + 1
fichier = Dir
Loop
End Sub