Private Sub Worksheet_Change(ByVal R As Range)
If Not Intersect(R, Range("A1:A10")) Is Nothing Then
If R.Count > 1 Then Exit Sub
If Len(R) > 0 Then
If Dir(R.Text) > "" Then
ActiveWorkbook.FollowHyperlink R.Text, , True
Else
MsgBox "Fichier inexistant!", vbCritical, "ERREUR"
End If
End If
End If
End Sub