Option Explicit
Const Bad As String = 'C:\\\\\\\\Documents and Settings\\\\\\\\Guest\\\\\\\\'
Const Good As String = 'C:\\\\\\\\Documents and Settings\\\\\\\\Administrator\\\\\\\\'
Sub RebuildHyperlink()
Dim Hyper As Hyperlink
For Each Hyper In Worksheets('Feuil1').Hyperlinks
If Not InStr(Hyper.Address, Bad) = 0 Then
Hyper.Address = WorksheetFunction.Substitute(Hyper.Address, Bad, Good)
End If
Next
End Sub