Bonjour Steelson !!
Je n'y croyait plus, je pensais bien que ce n'étais pas possible n'ayant aucune réponse.
J'ai retravaillé le code pour l'adapter suivant deux noms de cellules ça fonctionne au TOP merci beaucoup !!!
Pour infos si ça peut aider d'autres personnes...
Function LienHypertexte()
Dim i As Long
Dim Dossier As String
DerLig = Range("B" & Rows.Count).End(xlUp).Row
'chemin du dossier contenant les dossiers
Dossier = "J:\Lien\PDF\"
'parcours les cellules
For i = 6 To DerLig
If Cells(i, 3) = "/" Then
W = ""
Else
W = "-" & Cells(i, 3)
End If
'vérifie que le fichié existe
If Dir(Dossier & Cells(i, 2) & W & "*.pdf*") <> "" Then
'création du lien
Cells(i, 2).Hyperlinks.Add Cells(i, 2), Dossier & Cells(i, 2).Value & W & ".pdf"
Else
Cells(i, 2).Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
End If
Next i
End Function
Merci Beaucoup Steelson !!