Projet VBASuppression
Suppression de Feuilles
Sub proc_supprime_feuilles()
'Enlève les affichages de confirmation de suppression
Application.DisplayAlerts = False
For i = 2 To Sheets.Count Step 1
Sheets("Feuil" & i).Select 'Sélection
ActiveSheet.Delete 'Suppression
Next i
'Réactive les affichages de confirmation de suppression
Application.DisplayAlerts = True
End Sub
'Enlève les affichages de confirmation de suppression
Application.DisplayAlerts = False
For i = 2 To Sheets.Count Step 1
Sheets("Feuil" & i).Select 'Sélection
ActiveSheet.Delete 'Suppression
Next i
'Réactive les affichages de confirmation de suppression
Application.DisplayAlerts = True
End Sub
Attention de faire une sauvegarde avant de tester cette procédure :-)
