Sub Ouverture_Magique()
On Error Resume Next
ActiveWorkbook.FollowHyperlink (ActiveCell.Offset(0, -1).Value & "\" & ActiveCell.Value)
If Err.Number = 0 Then Exit Sub Else GoTo suite
suite:
Err.Clear
ActiveWorkbook.FollowHyperlink (ActiveCell.Value)
If Err.Number = 0 Then Exit Sub Else GoTo suite2
suite2:
MsgBox "Fichier Non Trouvé, soit le lecteur n'existe pas, soit le fichier a été effacé"
End Sub