supprimer feuilles avec VBA

[bertgrav]

bonjour,

je voudrais supprimer des feuilles avec VBA excepté une seule qui s'appelle 'données'
le nombre de feuilles peut aller de 1 à 10 et leur appellation est toujours différente.

merci

chantal

 

[Bernard_XLD]

Bonjour

rapidement

A+

dim sheet_sup as worksheet
application.displayalerts=false
for each sheet_sup in activeworkbook.worksheets
if not(sheet_sup.name='données') then sheet_sup.delete
next sheet_sup

 

[bertgrav]

MERCI BEAUCOUP
je viens d'essayer ça marche.

chantal