Copier coller un lien hypertexte en VBA

bonjour et merci d'avance pour votre aide.

je voudrais copier coller un lien hypertexte contenu dans une cellule (A1) vers la dernière cellule active d'un autre fichier.

Lorsque je fais un copier coller basique, ça me colle le chemin d'acces mais le lien hypertexte n'est plus actif.

'se positionner et activer  le fichier source
    fichiersource.Activate
' se positionner et activer la feuil ou se trouve le lien hypertexe
    Worksheets("test1").Select
'Sélectionner la cellule A1 sur le laquelle se trouve le lien hypertexte
     Range("A1").Select
     Application.CutCopyMode = False
     Selection.Copy
'Se positionner sur le fichier destination
    Workbooks("destination.xlsm").Activate
    Worksheets("dest2").Select
'Indiquer la cellule ou sera placé le coller 
    ActiveCell.Offset(0, 3).Select
'collage spécial valeur sur la dernière cellule sélectionner 
    ActiveCell.PasteSpecial Paste:=xlPasteValues
'ca me colle bien le chemin d'acces : c:\Users\desktop\test mais sans le lien hypertext me permettant d'aller directement dans le dossier test

J'espère avoir été clair, j'ai regardé dans le forum mais j'ai pas trouvé comment faire.

Merci encore à ceux qui s'y colleront.

Bonjour toutes et tous

https://docs.microsoft.com/fr-fr/office/vba/api/excel.hyperlinks.add

' @ tester

With Sheets("Test1")
Sheets("Test1").Range("A1").activate         ' ou .Range("A1").Activate
.Hyperlinks.Add Anchor:=.Range("a1").Select
     Application.CutCopyMode = False
     Selection.Copy
End With

'Se positionner sur le fichier destination
' etc