Effacer feuilles sauf une seule

Bonsoir!

For I = Sheets.Count To 2 Step -1
    Sheets(I).Delete
  Next I

Le code ci dessus à pour objet d'effacer toutes les feuilles préalablement crées (sauf la feuille source de données); je voudrais faire l'exception aussi pour une autre feuille, c'est dire que la routine n'efface pas cette Feuille (TOTAL PAR STRUCTURE). Merci à tous.

Bonsoir!

je viens de régler la question, merci à tous, il fallait tout juste incrémenter le compteur de la boucle à 3, pour sauter les feuilles que je voulais garder. Merci à tous.