Sub Mod_Hyper()
Dim Cell As Range, Sadr As String
Dossier = "C:\FP PLOMBERIE SERVEUR\1 - ADMINISTRATIF\COMPTABILITE - FP\1 _ FOURNISSEUR\"
With Range("D5:D29848")
Set Cell = .Cells.Find("*", , xlValues)
Do While Not Cell Is Nothing
If Sadr = "" Then Sadr = Cell.Address
If Cell.Hyperlinks.Count = 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Cell, _
Address:=Dossier & Cell.Text, TextToDisplay:=Cell.Text
Else
Cell.Hyperlinks.Item(1).Address = Dossier & Cell.Hyperlinks.Item(1).TextToDisplay
End If
Set Cell = .Cells.FindNext(Cell)
If Sadr = Cell.Address Then Set Cell = Nothing
Loop
End With
End Sub