Private Sub Workbook_Open() 'à l'ouverture du classeur
Dim I As Integer 'déclare la variable I
Worksheets(1).Activate 'activre le premier onglet du classeur
If Sheets.Count > 1 Then 'condition 1 : si le classeur possède plus d'un seul onglet
If MsgBox("Voulez-vous supprimer les onglets après l'onglet 1 ?", vbYesNo, "SUPPRESSION") = vbYes Then 'condition 2 : si "Oui" au message
Application.DisplayAlerts = False 'masque les messages d'Excel
For I = Sheets.Count To 2 Step -1 'boucle inversée du dernier onglet à l'onglet 2
Worksheets(I).Delete 'efface l'onglet
Next I 'prochain onglet de la boucle
Application.DisplayAlerts = True 'affiche les message d'Excel
End If 'fin de la condition 2
End If 'fin de la condition 1
End Sub