Salut,
à ma connaissance il n'est pas possible de le faire automatiquement.
Par contre, voici une piste avec le code ci-dessous qui mettra tes lien à jours:ici dans la feuille active la plage A1:C15
Sub Princ()
Hyperf [A1:C15], 'C:\\Test\\', 'D:\\Forum\\'
End Sub
Sub Hyperf(Plage As Range, ByVal Dossier$, ByVal Nouveau$)
Dim H As Hyperlink
For Each H In Plage.Hyperlinks
With H
.Address = Application.Substitute(.Address, Dossier, Nouveau)
.TextToDisplay = Application.Substitute(.TextToDisplay, Dossier, Nouveau)
End With
Next H
End Sub
A+++