Maccro supprimant feuilles

[Ynos]

Salut à Tous,

Je voudrais faire une macro qui supprime toutes les feuilles de mon classeur hormis une dont je connais le nom.
Quelqu'un pourrait me donner un petit coup de main pour écrire celle-ci?
Merci!

 

[PascalXLD]

Bonjour

un truc du genre

sub effacefeuilles()

dim ws as worksheet

application.screenupdating=false
application.displayalerts=false
for each ws in worksheets
if ws.name <› 'lafeuilleàgarder then ws.delete
next
application.screenupdating=true
application.displayalerts=true
end sub

 

[Ynos]

Merci bcp pour ton aide précieuse!