Sub CommandButton1_Click()
On Error Resume Next
Dim ret As Integer
Dim wb As Workbook
ret = MsgBox("Avez-vous validé vos modifications ?", vbYesNo)
If ret = vbNo Then
Exit Sub
Else
If Workbooks.Count = 1 Then Application.Quit Else ActiveWorkbook.Close
End If
End Sub