[Robert]

Bonjour Toubib, bonjour le forum,

Cette macro événementielle à placer dans le composant ThisWorkbook de VBE. Penses à modifier le nom de la feuille à garder :

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'à la fermeture du classeur
Dim Ws As Worksheet 'déclare la variable Ws
Application.DisplayAlerts = False
For Each Ws In Sheets
'remplace 'Feuil1' par le nom de la feuille qui doit rester
If Not Ws.Name = 'Feuil1' Then Ws.Delete
Next Ws
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub