Eliminer les onglets de feuille

[DAVIDRUN]

Salut le forum,
Je souhaite en fait éliminer toutes les feuilles de mon classeur par macro
pour ne garder que la première...
Une petite boucle for each-next ferai bien l'affaire!
Merci d'avance

DAVIDRUN

 

[@Christophe@]

Bonjour,

Voici la macro que tu colles dans un module:

Option Explicit
Dim WS As Worksheet

Sub SupSheet()
Application.DisplayAlerts = False
For Each WS In Worksheets
If WS.Name <> "Feuil1" Then
WS.Delete
End If
Next WS
Application.DisplayAlerts = False
End Sub

bonne journée

@Christophe@