Supprimer feuilles

Re le forum,

Je cherche à realiser cette tache par macro: supprimer toutes les feuilles dju classeur à part la premiere nommé "Feuille1"

Crdt!

Bonjour

Sub SupprimerFeuilles()
Application.DisplayAlerts = False
Dim W As Worksheet
For Each W In ActiveWorkbook.Worksheets
If W.Name = "Feuille1" Then
Else: W.Delete
End If
Next W
End Sub

Cordialement

Re Forum,

Impecable Amadéus!

Sinceres remerciements

Crdt,