Sub CreerLiens()
Dim chemin$, fichier$, lig&
With Feuil1 'CodeName de la feuille
chemin = .Parent.Path & "\Création lien\"
fichier = Dir(chemin & "*") '1er fichier du dossier
lig = 2
.Range("A2:A" & .Rows.Count).Delete xlUp 'RAZ
While fichier <> ""
.Hyperlinks.Add .Cells(lig, 1), chemin & fichier, TextToDisplay:=fichier
lig = lig + 1
fichier = Dir 'fichier suivant
Wend
End With
End Sub