Sub TraitementLiens()
Dim L As Hyperlink, Sh as worksheet
Dim MotRech As String, MotRempl As String
'Mot à rechercher
MotRech = ("srv1)
'Mot de remplacement
MotRempl = ("srv2")
'Remplacer le mot dans chaque lien de chaque feuille
For Each Sh in activeworkbook.worksheets
For Each L In Sh.Hyperlinks
L.Address = Replace(L.Address, MotRech, MotRempl)
Next L
Next Sh
End Sub