bonjour CC_Tiger
effectivement TextToDisplay ne fonctionne pas avec Excel97
par contre en te relisant je ne sais plus trop si tu veux modifier le lien hypertexte ou uniquement le texte qui s'affiche dans la cellule .
dans le doute j'ai mis à jour la macro avec les deux options pour que tu puisses choisir ce qui t'interesse
Sub RemplacementTexteDesLiens97()
Dim Cell As Range
Dim Txt1 As String, Txt2 As String
On Error Resume Next
For Each Cell In Sheets("Feuil1").UsedRange.Cells
Txt1 = Cell.Hyperlinks(1).Address'le lien hypertexte
Txt2 = Cell.Hyperlinks(1).Range'le texte affiché dans une cellule contenant un lien( excel97 )
'pour excel2002 possibilité d'utiliser :
'Cell.Hyperlinks(1).TextToDisplay
Cell.Hyperlinks(1).Address = Application.Substitute(Txt1, "ancien", "nouveau")
Cell.Hyperlinks(1).Range = Application.Substitute(Txt2, "ancien", "nouveau")
Next Cell
End Sub
bon apres midi
MichelXld