Sub Image21_QuandClic()
'enregistrer et quitter
Dim style As Integer
Dim msg As String, title As String, Response As String
msg = " Vous allez enregistrer et quitter ce tableau; Vous confirmez?"
style = vbYesNo + vbDefaultButton2
title = "Attention!! "
Response = MsgBox(msg, style, title)
If Response = vbYes Then
ActiveWorkbook.Close savechanges:=True
End If
End Sub