Sub Remplacer_Liens_Hypertexte()
Dim i As Integer
Dim strAddress As String
Dim strName As String
On Error Resume Next
For i = 1 To 100 'boucle sur les cellules... à adapter
strAddress = Cells(i, 1).Hyperlinks(1).Address 'adresse du lien
strName = Cells(i, 1).Hyperlinks(1).Name 'texte à afficher
Cells(i, 1).Hyperlinks(1).Address = strName 'changer 'adresse du lien
Next i
End Sub