Bonjour frederic1971, le forum,
A tester:
avec le nom des feuilles à exclure:
Sub suppression()
Dim a, w As Worksheet
a = Array("Feuil1", "Feuil2", "Feuil3") '............. ..feuilles à exclure ( nom à adapter)
Application.DisplayAlerts = False '.....................désactive le message de confirmation des suppressions de feuilles
For Each w In Worksheets '.............................boucle sur toutes les feuilles du classeur
If IsError(Application.Match(w.Name, a, 0)) Then '....Vérifie si le nom de l'onglet fait partie des feuilles à exclure
w.Delete '...........................................supprime les onglets dont le nom diffère des feuilles à exclure
End If
Next w
Application.DisplayAlerts = True
End Sub
Où plus simplement de la 4è feuille à la dernière:
Sub suppression2()
Dim i As Integer
Application.DisplayAlerts = False
For i = Sheets.Count To 4 Step -1 '....................boucle de la dernière feuille à la quatrième
Sheets(i).Delete '....................................supprime les feuilles
Next i
Application.DisplayAlerts = True
End Sub
Cordialement,