suppression de toutes les feuilles à la fermeture

[toubib]

bonjour à tous,

je souhaiterais savoir comment faire pour supprimer toutes les feuilles d'un classeur hormi une et ce à la fermeture du fichier?

merci

 

[toubib]

en fait j'ai un soucis maintenant c'est que je veux inclure d'autres conditions dans le code, qui marche maintenant, aller savoir pourquoi.
en l'occurrence je voudrais que ne soient pas delete la feuille données, mais aussi choix et filtre.

Comment peut on faire pour augmenter le nbre de critères?

Dim Ws As Worksheet
Application.DisplayAlerts = False
For Each Ws In Sheets
If Ws.Name <> 'données' Then Ws.Delete
Next Ws


j'ai essayé en mettant des virgules ou des or entre chaque critère mais ca marche pas :s