Private Sub Workbook_Open()
Dim MonLien As Hyperlink
For Each MonLien In Sheets("Feuil1").Hyperlinks
If Dir(ThisWorkbook.Path & "/" & Left(MonLien.Address, InStrRev(MonLien.Address, "/"))) <> _
Right(MonLien.Address, Len(MonLien.Address) - InStrRev(MonLien.Address, "/")) Then
MonLien.Address = Dir(ThisWorkbook.Path & "/" & Left(MonLien.Address, InStrRev(MonLien.Address, "/")))
End If
Next MonLien
End Sub