limiter le nombre de feuilles

bonjour,

Est-il possible d'empêcher, par une commande en VB sous excel, la création d'une nouvelle feuille de calcul ou ce qui reviendrait au même de limiter de nombre de feuilles dans un classeur.

Merci de votre aide, je n'arrive pas à trouver la solution

Bonsoir,

par code, nombre à adapter.....

Code à insérer dans le code du ThisWorkBook :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Workbook_NewSheet(ByVal Sh As Object) With Application .ScreenUpdating = False .DisplayAlerts = False End With If Sheets.Count > 1 Then Sh.Delete With Application .ScreenUpdating = True .DisplayAlerts = True End With End Sub

---

Bonne nuit