Suppression automatique Onglet

Bonjour,

Après avoir vu la création automatique d'onglet, j'aimerais réaliser un bouton pour supprimer automatiquement tous les onglet sauf l'onglet Export.

Le nombre d'onglet peut varier en fonction du projet.

Merci de votre aide

Cordialement

Bonjour,

Teste cette petite macro

Sub SuppOnglet()
  Application.DisplayAlerts = False
  For i = Sheets.Count To 2 Step -1
    Sheets(i).Delete
  Next i
  Application.DisplayAlerts = True
End Sub

Bonjour Pierrof47, M12, le forum,

Une variante ...(au cas où Export ne soit pas en première position)....

Sub suppressionOnglets()
 Dim sh As Worksheet
  For Each sh In ThisWorkbook.Worksheets
   Application.DisplayAlerts = False
    If sh.Name <> "Export" Then sh.Delete
   Application.DisplayAlerts = True
  Next sh
End Sub

Cordialement,

Bonjour M12 et xorsankukai,

Super ça fonctionne, je garde vos codes précieusement.

Cordialement