Private Sub CommandButton1_Click()
Dim dossier As Object, fichier As Object, i&
i = 0
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path)
With Sheets("Feuil1")
.Range(Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).ClearContents
For Each fichier In dossier.Files
If Right(fichier.Name, 3) = "pdf" Then
i = i + 1
.Cells(i, 1).Hyperlinks.Add Anchor:=Cells(i, 1), Address:= _
ThisWorkbook.Path & "\" & fichier.Name, TextToDisplay:= _
fichier.Name
End If
Next fichier
End With
End Sub