Modification liens hypertexte sujet

Bonjour,

Je viens à nouveau vers vous pour un problème de liens hypertextes corrompus.
Sur plus de la moitié des liens il manque une partie du chemin pour accéder au fichier.

Quand je fais un clic droit et modifier le lien hypertexte j'ai ceci : Listing%20CR\MW14023%20modif%20brûleur%20OCM.xls
J'aimerais ajouter cette partie du chemin aux liens existants : \s013\Groupes\milestone\Change Request\

J'ai essayé avec cette macro mais ca ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim h As Hyperlink For Each h In [B1:B1000].Hyperlinks If UCase(Left(h.Address, 2)) = "Li" Then h.Address = "\S013\Groupes\milestone\Change Request\" & Mid(h.Address, 1) End If Next End Sub

---

Auriez-vous une solution ?