Copie cellule contenant lien hypertexte

Bonjour

Je souhaite vous solliciter pour un problème de copie d'une cellule ayant un lien hyper texte d'un classeur A vers un classeur B ;

je vais chercher la cellule du classeur A avec la formule suivante dans le classeur B :

=SI(L243="";"";RECHERCHEV(L243;'C:\Users\jpujolle@rps.fr\OneDrive - DISTRIBUTION INDUSTRIE SERVICES\SITE DAHER LOUEY SAV DIS\GROUPE SAV DIS DAHER\[Liste parc Daher.xlsx]Liste Gravure'!A:R;15;FAUX))

cette formule copie bien la cellule dans le classeur B mais le lien hyper texte ( pour une documentation pdf) n'est plus actif

Auriez vous une solution ?

Merci beaucoup

Je pense que contrairement à Open Office, il n'existe pas en excel de fonction pour extraire le lien hypertexte. La seule solution est d efaire une fonction personnalisée pour extraire le lien et le dupliquer sur la nouvelle cellule.

Une sub :

Sub test()
    Call CopierLien(Range("A1"), Range("B1"))
End Sub
Sub CopierLien(depuis As Range, vers As Range)

depuis.Select
'Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Selection.Copy

vers.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.Hyperlinks.Add Anchor:=vers, Address:=depuis.Hyperlinks(1).Address

Application.CutCopyMode = False

End Sub