If MsgBox("Voulez-vous vraiment quitter ?", vbQuestion + vbYesNo) = vbYes Then
Application.Quit
End If