Effacer toutes les feuilles sauf une

Sub macro()
Dim ws As Worksheet

Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name <> ActiveSheet.Name Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True

End Sub

Cliquez pour agrandir...

Sub Macro1()
Dim nomfeuil As String 'déclare la variable nomfeuil
Dim sh As Worksheet 'déclare la variable sh
Application.DisplayAlerts = False 'masque les messages excel (Les feuilles seront supprimées définitivement...blablabla)
nomfeuil = ActiveSheet.Name 'définit la variable nomfeuil
For Each sh In Sheets 'boucle sur toutes les feuilles du classeur
'condition : si le nom de la feuille est différent de nomfeuil, supprime la feuille
If sh.Name <> nomfeuil Then sh.Delete
Next sh 'prochaine feuille du calsseur
Application.DisplayAlerts = True 'réaffiche les messages excel
End Sub

Cliquez pour agrandir...