Sub AfficheInfoAccesFichier()
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
For T = 0 To 4
Chemin = Range("B3").Offset(0, T)
Fichier = Range("B3").Offset(1, T)
Complet = Chemin & "\" & Fichier
On Error Resume Next
Set f = fs.GetFile(Complet)
Range("B3").Offset(2, T) = f.DateCreated
Range("B3").Offset(3, T) = f.DateLastModified
Range("B3").Offset(4, T) = f.DateLastAccessed
Next T
End Sub