Private Sub Workbook_NewSheet(ByVal Sh As Object)
If Worksheets.Count > 3 Then
Application.DisplayAlerts = False
'supprime la nouvelle feuille
Sh.Delete
MsgBox "Désolé, l'ajout de feuille n'est pas possible !", _
vbExclamation, _
"ACTION NON AUTORISEE."
Application.DisplayAlerts = True
End If
End Sub