Private Sub Workbook_Open()
Dim h As Hyperlink, x$
With Feuil1 'CodeName
For Each h In .Hyperlinks
x = h.Address
If Not x Like "?:\*" Then x = Me.Path & "\" & x 'chemin complet
h.Parent = "Ce dossier " & IIf(Len(Dir(x, vbDirectory)), "existe : ", "n'existe pas : ") & x
Next
.Columns(1).AutoFit
End With
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub