XL 2013 MsgBox

Sub test()    'TEST
    If MsgBox("Question ?", vbYesNo) = vbYes And MsgBox("Confirmation !", vbYesNo) = vbYes Then
        MsgBox "réponse postive"
    Else
        MsgBox "réponse négative"
    End If
End Sub

Sub test2()    'TEST
Dim Rep1 As Boolean, Rep2 As Boolean
Rep1 = MsgBox("Question ?", vbYesNo) = vbYes
Rep2 = MsgBox("Confirmation ?", vbYesNo) = vbYes
MsgBox "Réponse " & Choose(1 - (Rep1 And Rep2), "Négative", "Positive")
End Sub

Sub test3()    'TEST
    Dim Rep1 As Boolean
    Rep1 = MsgBox("Question ?", vbYesNo) = vbYes And MsgBox("Confirmation ?", vbYesNo) = vbYes
    MsgBox "Réponse " & Array("Négative", "Positive")(-Rep1)
End Sub
Sub test4()    'TEST
    MsgBox "Réponse " & Array("Négative", "Positive")(-(MsgBox("Question ?", vbYesNo) = vbYes And MsgBox("Confirmation ?", vbYesNo) = vbYes))
End Sub

Sub test5()
    MsgBox "Réponse " & Array("Négative", "Positive")(-(Questionner() And Confirmer()))
End Sub

Sub Test6()
    MsgBox "Réponse " & Array("Négative", "Positive")(-(Demander("Question") And Demander("Confirmation")))
   
End Sub


Function Questionner(): Questionner = MsgBox("Question", vbYesNo + vbQuestion) = vbYes: End Function
Function Confirmer(): Confirmer = MsgBox("Confirmation", vbYesNo + vbQuestion) = vbYes: End Function
Function Demander(item): Demander = MsgBox(item, vbYesNo + vbQuestion) = vbYes: End Function

Sub test5()
MsgBox "Réponse " & Array("Néga", "Posi")(-(Questionner() And Confirmer())) & "tive"
End Sub

Sub Test6()
MsgBox "Réponse " & Array("Néga", "Posi")(-(Demander("Question") And Demander("Confirmation"))) & "tive"
End Sub


Function Questionner(): Questionner = MsgBox("Question", vbYesNo + vbQuestion) = vbYes: End Function
Function Confirmer(): Confirmer = MsgBox("Confirmation", vbYesNo + vbQuestion) = vbYes: End Function
Function Demander(item): Demander = MsgBox(item, vbYesNo + vbQuestion) = vbYes: End Function