Sub ListeFichiers()
Range("A2:C65000").ClearContents
[E12].ClearContents
ChDir ThisWorkbook.Path ' répertoire de l'appli
dossier = ChoixDossier()
If dossier = "" Then Exit Sub
ligne = 2
nf = Dir("*.*") 'premier fichier xls
Do While nf <> ""
Cells(ligne, 1) = nf
Cells(ligne, 2) = FileDateTime(nf)
ligne = ligne + 1
nf = Dir ' suivant
Loop
End Sub