bonjour à tous

Je suis en train de bosser sur une macro dont l'objectif est de supprimer un certain noble d'onglets sur un fichier excel que voici :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub reset()
 
 
    Sheets("5CalendriersFrance").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("50CalendriersFrance").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("5CalendriersEtranger").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("50CalendriersEtranger").Select
    ActiveWindow.SelectedSheets.Delete
End Sub
Mon problème est que pour chaque feuille, il m'ouvre une message box "Les feuilles sélectionnées peuvent contenir des données. Pour supprimer définitivement les données, cliquez sur supprimer"
Bon ! Pour l'instant ce n'est pas trop un problème parce que je n'ai que quatre feuilles à fermer et basta, mais je vais bientôt en avoir plus d'une centaine, et je voudrai ne pas avoir ce message.

Merci infiniment pour votre aide,

Bien cordialement,