Sub SSauve()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Traitement Terminé Voulez vous enregistrer"
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "CLasser"
Response = MsgBox(Msg, Style, Title)
[COLOR="Red"]If Response = [/COLOR]vbYes Then
ActiveWorkbook.Save
Else
Exit Sub
End If
End Sub