Application.DisplayAlerts = False [COLOR=green]'Pas d'alerte de confirmation[/COLOR]
Sheets("TEST").Delete
Application.DisplayAlerts = True [COLOR=green]'on remet les alertes[/COLOR]
MsgBox ("Suppression réussi") [COLOR=#008000]'Message finission[/COLOR]