Sub modif_liens()
'Travailler sur la collection des liens de la colonne 1
With ThisWorkbook.Sheets("Feuil1").Columns(1).Hyperlinks
' en traiter le dernier item
With .Item(.Count)
'Faire le remplacement
.Address = Replace(.Address, "\", "/")
Debug.Print .Address
MsgBox ("terminé" & vbCrLf & .Address)
End With
End With
End Sub