lechemin = "S:\Dossier_Gestion\Gestion Financière et comptable\TS save\"
ledossier = "analytique\"
ChDir lechemin & ledossier
NF = Dir(lechemin & ledossier & "*.xls*")
nf2 = Dir(lechemin & ledossier)
ligne = 2
Do While NF <> ""
nom_entier = lechemin & ledossier & NF
ActiveSheet.Hyperlinks.Add anchor:=Cells(ligne, 1), Address:=nom_entier, TextToDisplay:=nom_entier
Cells(ligne, 2).Value = FileDateTime(nom_entier)
Cells(ligne, 3).Value = FileLen(nom_entier)
ActiveSheet.Hyperlinks.Add anchor:=Cells(ligne, 4), Address:=nom_entier, TextToDisplay:=NF
ligne = ligne + 1
NF = Dir
Loop
Columns("a:c").AutoFit