Public Function ObtenirAdresseLien(Plg As Range)
Dim Hl As Hyperlink
ObtenirAdresseLien = ""
For Each Hl In ActiveSheet.Hyperlinks
Set i = Intersect(Hl.Range, Plg)
If Not i Is Nothing Then
ObtenirAdresseLien = Hl.Address
Exit For
End If
Next
End Function