Private Sub Worksheet_Change(ByVal Target As Range)
Dim chemin$, ext$, r As Range, t$
chemin = "L:\" 'à adapter
ext = ".pdf" 'à adapter
Set r = Intersect(Target, Me.UsedRange)
On Error Resume Next
For Each r In r 'si entrées/effacements multiples
r.Hyperlinks(1).Delete
t = chemin & r & ext
If Dir(t) <> "" Then Me.Hyperlinks.Add r, t, , r.Text
Next
End Sub