Private Sub CommandButton2_Click()
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim FileItem As Scripting.File
Dim i As Long
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(ThisWorkbook.Sheets("Feuil1").Range("B2").Value)
i = Range("A65536").End(xlUp).Row + 1
For Each FileItem In SourceFolder.Files
Cells(i, 1) = FileItem.Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
Address:=FileItem.ParentFolder & "\" & FileItem.Name
i = i + 1
Next FileItem