Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(3, 2) = "NON" Or Cells(3, 3) = "NON" Or Cells(3, 4) = "NON" Then
Cells(3, 5).Select
Application.Dialogs(xlDialogInsertHyperlink).Show
'ActiveSheet.Hyperlinks.Add Anchor:=Cells(3, 5), Address:="Fichier.xls", TextToDisplay:="Lien"
Else
Cells(3, 5).Clear
End If
End Sub