'Ne pas oublier de mettre le bon nom de feuille Sheets("????")'
With Sheets("NomDeLaFeuilleSpécifique")
For Each xFile In xFolder.Files
I = I + 1
'où I représente le numéro de ligne de la feuille
' et 1 le numéro de colonne (A vous d'adapter)
.Hyperlinks.Add .Cells(I, 1), xFile.Path, , , xFile.Name
Next
End With