Bonjour à toutes et à tous,

Voici un bout de programme ci-dessous dont le but est d'effacer toutes les feuilles commençant par "Classe". Comment Est-ce que je peux faire car suivant les lycées, les noms de classes peuvent varier?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub suppclass()
    Sheets("Classe 2ASSP").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Classe 1ASSP").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Classe TASSP").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Classe 2ARCU").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Classe 1ARCU").Select
    ActiveWindow.SelectedSheets.Delete
End Sub
Merci d'avance.

Novice72