Modification de la cible d'un lien hypertexte par macro

Bonsoir à tous,

Je suis actuellement à la recherche d'une macro qui me permettrait de modifier la cible de plusieurs liens hypertextes dans une même feuille excel. Le plus important à savoir est que le texte affiché dans la cellule contenant le lien hypertexte est 1 et non pas le chemin d'accès du fichier. Donc je ne peux pas juste faire un "Find/Replace" si mes connaissances sont bonnes.

J'ai trouvé une macro que je vous mets ci-dessous mais qui modifie seulement le "texte à afficher" et non pas la cible réelle du lien.

Sub HyperLinkChange()
Dim oldtext As String
Dim newtext As String
Dim h As Hyperlink

' These can be any text portion of a hyperlink, such as ".com" or ".org".
oldtext = ""
newtext = ""

' Check all hyperlinks on active sheet.
For Each h In ActiveSheet.Hyperlinks
x = InStr(1, h.Address, oldtext)
If x > 0 Then
If h.TextToDisplay = h.Address Then
h.TextToDisplay = newtext
End If
h.Address = Application.WorksheetFunction. _
Substitute(h.Address, oldtext, newtext)
End If
Next
End Sub

Malheureusement mes connaissances en VBA sont un peu faibles... Est-ce que l'un d'entre vous connaîtrait une macro ou est calé(e) en VBA??

Je suis sur excel 2010 pour info...

Si vous avez des questions n'hésitez pas. J'espère avoir été à peu près clair ^^

Je m'excuse par avance si il y a déjà un topic la dessus, mais j'ai pas trouvé...

Merci par avance à tous

Bonne soirée

Aymeric