Suppression de feuilles sans message excel

Bonjour le forum,

Lors de l'execution de mon programme, j'ai crée de nouvelles feuilles de calcul, qui ont ete utiles pour obtenir les données souhaitées, mais qui sont desormais inutiles. Je souhaite donc inclure des lignes supplementaires pour les supprimer. Le code

Code:

---

Sheets("Feuil4").Delete

---

fonctionne, mais excel me renvoit un message "vous ne pouvez pas annuler la suppression de feuilles, blablabla", a activer manuellement pour valider la suppression.
Pour supprimer une seule feuille ca va encore..
le probleme c est que j ai une dizaine de feuilles de calcul inutiles qui trainent dans mon classeur, et que ca fait perdre beaucoup de temps de renvoyer 1 message d'info pour chacune d entre elles.

Si quelqu un a une solution a mon probleme, je lui en serai tres reconnaissant

D'avance, merci

Bonjour,

Tu peux utiliser ceci:

Code:

---

1 2 3

Application.DisplayAlerts = False Sheets("Feuil4").Delete Application.DisplayAlerts = True

---

Cordialement ;)

Ca fonctionne parfaitement Nico, un grand merci a toi

Autre méthode :

Code:

---

1 2	Sheets("Feuil4").Move Workbooks(Workbooks.Count).Close SaveChanges:=False

---