Private Sub Form_Unload(Cancel As Integer) Dim result As Integer 'défini une variable ki contiendra le resultat result = MsgBox("voulez-vous vraiment quitter ?", vbQuestion + vbYesNo) pose la questionIf result vbNo Then Cancel 1 'si on a choisi non ben ca kit pas End Sub