Private Sub btremisezero_Click()
Dim Msg, Style, Title, Response
Msg = " Avez vous sauvegarder!! CLIQUEZ OUI SINON CLIQUEZ NON !! "
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = " quitter "
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Unload Me
FrmCaisse.Show
Sheets("tickets").Range("A2:I120").ClearContents
End If
[highlight]FrmCaisse.LablCompteur.Caption = FrmCaisse.LablCompteur.Caption + 1