Recopier une cellule avec lien hypertext

Bonjour
N'ayant pas beaucoup de précision quant à la recopie (dans quelle cellule, nom de la feuille etc..) voici ce que ça donne en utilisant l'enregistreur de macro
exemple: recopie d'une cellule avec lien hypertexte de la cellule A1 de la feuille 1 vers la cellule B1 de la feuille 2

    Sheets("Feuil1").Select '
    Range("A1").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone  , SkipBlanks:=False, Transpose:=False

ce qui revient à faire manuellement
cellule A1 feuille 1 : sélectionner - copier
cellule B1 feuille 2: collage spécial - Tout,avec le thème source
En espérant que cela puisse vous aider
cdlt