Sub boite_dialogue()
Application.ScreenUpdating = False 'désactivation du raffraichissement écran
total = 0
question = MsgBox("blabla1", vbYesNo)
If question = 6 Then total = total + 1
question = MsgBox("blabla2", vbYesNo)
If question = 6 Then total = total + 1
question = MsgBox("blabla3", vbYesNo)
If question = 6 Then total = total + 1
'...la suite jusqu'à 46
Application.ScreenUpdating = True
Sheets(1).Range("A1") = total
End Sub