Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Row = 1 Then Target = Choose(MsgBox("question ?", vbYesNo), , , , , , "oui", "non")
End Sub
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Row = 1 Then Target = IIf(MsgBox("question ?", vbYesNo) = 6, "oui", "non")
End Sub