Le file date un peu mais je vais tout de même t'apporter une réponse.
Je n'ai gardé que la procédure ListeFichiers et lui est enlevé tous les commentaires, car les modifications (en rouge) sont dans cette partie de code.
--------------------------------------------------------------------------
Sub ListeFichiers(Repertoire As String)
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Dim FileItem As Scripting.File
Dim i As Long
Dim j As Long
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(Repertoire)
j = 1
i =Columns(j).End(xlUp).Row + 1
For Each FileItem In SourceFolder.Files
Cells(i, j) = FileItem.Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, j]), _
Address:=FileItem.ParentFolder & "\" & FileItem.Name
If i = 11 Then
i = Columns(j).End(xlUp).Row + 1
j = j + 1
Else
i = i + 1
End If
Next FileItem
End Sub
----------------------------------------------------------------------------
J'espère que ma réponse te satisfait.
