Sub retirer()
Dim ws As Worksheet
For Each ws In Worksheets
Application.DisplayAlerts = False
If ws.Name <> "X" And ws.Name <> "Z" And ws.Name <> "Y" Then ws.Delete
Next
Application.DisplayAlerts = True
End Sub
Sub SupprimerFeuilles()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Worksheets
If InStr(1, "Feuil2,Feuil5,Feuil10", sh.Name) = 0 Then sh.Delete
Next sh
Application.DisplayAlerts = True
End Sub
If IsError(Application.Match(sh.Name, Array("Feuil10", "Feuil2", "Feuil5"), 0)) Then sh.Delete