Remplacer lien/texte/fonction

Bonjour tout le monde,

je vous recontacte car j'ai un probleme avec un de mes codes lié à la fonction LIEN_HYPERTEXTE

Le code ci-dessous me permet changer l'adresse de la fonction LIEN_HYPERTEXTE tout en gardant la valeur actuelle, mais le lien ne s'affiche pas.

J'aimerais savoir si quelqu'un peut trouver le probleme du code.

Private Sub Changer_Lien()
Dim Supp As String, Cell As Range, Lien As String
Lien = "*Lien*" 
For Each Cell In Selection
    If Cell.Value <> "" Then
        Supp = Cell.Formula
        Adresse = Split(Supp, ",")
        Adresse = Replace(Adresse(UBound(Adresse)), Chr(34), "")
        Adresse = Replace(Adresse, Chr(41), "")
        Adresse = Replace(Adresse, "/", "-", , 1)
        'Cell.Formula = Adresse
'C'est sur la ligne ci-dessous qu'il y a un probleme(Erreur : 1004)
        Cell.Formula = "=LIEN_HYPERTEXTE(" & Chr(34) & Lien & "/" & Replace(ActiveWorkbook.Name, " ", "%20") & "/" & Replace(ActiveSheet.Name, " ", "%20") & "/" & Adresse & ".pdf" & Chr(34) & Chr(59) & Chr(34) & Adresse & Chr(34) & ")"
'Je crois que le problème est lié à "=", car une fois retiré la fonction s'ajoute belle et bien au texte (sans le lien)
    End If
Next Cell
End Sub

Voila plus exactement ce que je souhaite faire :

=LIEN_HYPERTEXTE("*Ancienne_adresse*";"*Valeur_cellule*")
'lancement du programme
=LIEN_HYPERTEXTE("*Nouvelle_adresse*";"*Valeur_cellule*")

Désolé si mon code est un peu "barbare"

Bonjour,

Tentez avec .FormulaLocal (formule dans la langue de votre Excel) au lieu de .Formula (formule en anglais).

Merci beaucoup de votre aide, ça marche !