Private Sub CommandButton1_Click()
Dim T(), Rep$, sfilename$, dl&, n&
Rep = ThisWorkbook.Path & "\2-Client"
If Dir(Rep, vbDirectory) = "" Then MsgBox "Dossier inexistant", 16: Exit Sub
sfilename = Dir(Rep & "\*.xls*")
Do While sfilename <> ""
n = n + 1: ReDim Preserve T(1 To 3, 1 To n)
T(1, n) = sfilename
T(2, n) = FileDateTime(Rep & "\" & sfilename)
T(3, n) = CDbl(FileLen(Rep & "\" & sfilename) / 1000)
sfilename = Dir
Loop
With Sheets("Index Docs").Range("C15")
.CurrentRegion.ClearContents
If n > 0 Then
.Resize(n, 3) = Application.Transpose(T)
For i = 1 To n
.Resize(n, 3).Cells(i, 3).NumberFormat = "#0.00" & IIf(.Cells(i, 3) < 1000, " Ko", " Mo")
Next
End If
End With
End Sub