Option Explicit
Sub test()
Dim h As Hyperlink
Dim MonRepertoire As String, fso As Object, f As Object
Dim t() As Variant, x As Integer
MonRepertoire = ThisWorkbook.Path
Set fso = CreateObject("Scripting.FileSystemObject")
ReDim t(1 To fso.GetFolder(MonRepertoire).Files.Count, 1 To 5)
For Each f In fso.GetFolder(MonRepertoire).Files
x = x + 1
t(x, 1) = f.Name
t(x, 2) = f.DateCreated
t(x, 3) = f.DateLastModified
t(x, 4) = f.Size
t(x, 5) = f.Path
Next f
For x = 1 To UBound(t, 1)
With ActiveSheet
Set h = .Hyperlinks.Add(Anchor:=.Cells(65536, 5).End(xlUp)(2), _
Address:=t(x, 5))
End With
Next x
ReDim Preserve t(LBound(t, 1) To UBound(t, 1), LBound(t, 2) To UBound(t, 2) - 1)
Cells(2, 1).Resize(UBound(t, 1), UBound(t, 2)) = t
End Sub