Bonjour

Je cherche à changer mon lien hyperlink (qui est un lien vers une autre cellule dans le même onglet

Voici mon code

Sub Lien()

Dim Hpk As Hyperlink
    For Each Hpk In Range("X1:X2000").Hyperlinks
        Hpk.SubAddress = Replace(Hpk.SubAddress, "A", "X")
    Next Hpk
End Sub

Le code fonctionne, mais le problème c'est que la colonne X est une copie de la colonne A et les hyperliens de ma colonne A change aussi

Exemple

J'ai un lien en A200 qui m'amène à la cellule A1. Je copie A200 et la colle en X200. Cependant je veux que mon lien soit X1 et non A1.

En exécutant la macro, le lien change bien en X1, mais le lien en A200 change aussi en X1. Comment faire pour que le lien en A200 reste A1