Merci sousou,
Sheets(Array("Feuil1", "Feuil2")).Select : j'ai appliqé avec une boucle, ce qui me donne également une suppression une par une
J'ai finalement trouvé le code suivant, qui fonctionne bien :
Sub SuppSheets()
Dim sht As Worksheet
Application.DisplayAlerts = False
For Each sht In Worksheets
If sht.Name <> "Rendements" And sht.Name <> "X" _
And sht.Name <> "bzz" And sht.Name <> "brr" _
And sht.Name <> "Feuil2" And sht.Name <> "Feuil1" _
And sht.Name <> "Statistiques" And sht.Name <> "mode d'emploi" _
And sht.Name <> "Calculs" Then sht.Delete
Next
End Sub