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@