Raph

Salut ,
voila ce que je propose comme macro:

Sub quitteretsauver()
'
' quitteretsauver Macro


'blocage de l'écran

Application.ScreenUpdating = False


'sauvegarde de tout les documents ouverts

For Each w In Application.Workbooks
w.Save
Next w


'sortir du logiciel EXCEL

Application.Quit


'déblocage de l'écran

Application.ScreenUpdating = True

End Sub




@+