Liens hypertexte à modifier en masse

Bonjour,

J'ai un fichier excel qui contient une quinzaine d'onglets, contenant au total un millier de liens hypertextes. Or le chemin de ces liens a changé.

Pour éviter de tout modifier un par un, j'ai vu qu'il existait la possibilité de faire une macro pour tout changer d'un coup.

Voici ma macro (largement inspirée de ce que j'ai pu trouver sur le web)

Sub ht()
txt1 = "file:///C:\Users\8707068e\AppData\Roaming\Microsoft\Excel"
txt2 = "file:///\\xdkamnct141\users\geg\bte"
For Each ws In Sheets
For Each lnk In ws.Hyperlinks
If lnk.Address Like "*" & txt1 & "*" Then lnk.Address = Replace(lnk.Address, txt1, txt2)
Next
Next
End Sub

Est-ce correct ? Comment l'implanter dans mon fichier excel ? comment la lancer ensuite ?

Merci mille fois d'avance...