Application.DisplayAlerts = False
Sheets('donnees ' & mois & ' ' & annee).Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Application.DisplayAlerts = False
Sheets('donnees ' & mois & ' ' & annee).Delete
Application.DisplayAlerts = True