=LIEN_HYPERTEXTE(D1;TEXTE(A1;"jj-mm-aaaa")&" "&B1)
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
=LIEN_HYPERTEXTE(ObtenirAdresseLien(B1);TEXTE(A1;"jj-mmmm-aa")&" "&B1)