Sub Primo_Bac_ES()
Select Case MsgBox("Pour l'année 2007/2008, sur 3 néo-bacheliers inscrits aucun n'est admis (classement entre la 550ème et la 600ème place)", vbYes, "BAC ES")
Case vbYes
If Cells(5, 14).Value = 1 And Cells(12, 14).Value = 1 Then
'MsgBox " vous pouvez lancer la macro 1"
Application.Run ("Primo_Bac_ES")
End If
End Select
End Sub