Suppression des feuilles VBA

Bonjour,

J'ai besoin de vos aides pour un code vba pour supprimer tout les onglets sauf les onglets nommés "Feuille 1" et "Feuille 2".

Merci

Bonjour toutes et tous

une solution qui a été proposé ici ci-dessous

1/@ modifier le code d'Amadeus

https://forum.excel-pratique.com/viewtopic.php?t=94758

mercis à Amadeus et Raja

--------

et sur le site commentcamarche que propose Lermite222 merci à lui ci-dessous

2/@ modifier le nom des onglets à conserver

Sub SupprimeFeuille()
Dim Compteur As Integer, Nom As String
    Application.DisplayAlerts = False
    For Compteur = Worksheets.Count To 1 Step -1
        Nom = Sheets(Compteur).Name
        Select Case Nom
        Case "Feuil1", "Feuil2"

        Case Else
            Sheets(Compteur).Delete
        End Select
    Next Compteur
    Application.DisplayAlerts = True
End Sub

--------

3/On peut également s'aider du site de Jacques Boisgontier merci à lui pour la gestion des onglets, déplacer, renommer, supprimer etc. etc.

http://boisgontierjacques.free.fr/pages_site/GestionOnglets.htm

crdt,

André