Sub CreerLiens()
Dim chemin$, c As Range
chemin = ThisWorkbook.Path & "\Dossier PDF\_" 'avec tiret bas
With Sheets("Archives")
For Each c In Intersect(.Range("P3:P10000"), .UsedRange)
If c <> "" Then If Dir(chemin & c) <> "" Then .Hyperlinks.Add c(1, 2), chemin & c, TextToDisplay:=c.Text
Next
End With
End Sub