Affichage plein écran

Bonjour tout le monde,

j'ai un petit problème concernant l'ouverture plein écran d'un classeur, j'ai enregistrer mon classeur en format xlsm. voila le code

Option Explicit
Sub Plein_ecran()
ActiveWindow.DisplayHeadings = False        'Masquer entete ligne colonne
ActiveWindow.DisplayWorkbookTabs = False    'Masquer onglets
Application.DisplayFullScreen = True        'Afficher plein ecran
Application.DisplayFormulaBar = False       'masquer barre formule
Application.OnKey "{ESCAPE}", ""
End Sub
Sub Ecran_Normal()
Application.OnKey "{ESCAPE}"
ActiveWindow.DisplayHeadings = True        'AFFICHER entete ligne colonne
ActiveWindow.DisplayWorkbookTabs = True    'AFFICHER onglets
Application.DisplayFullScreen = False        'ecranNORMAL
Application.DisplayFormulaBar = True       'AFFICHER barre formule
End Sub

Sub ToucheEscape(Optional dummy As Byte)
'/// Procédure vide mais nécessaire pour le contrôle de la touche Escape (Echap) ///
End Sub

le syntaxe est correct mais lors de l'ouverture de ce classeur il ne s'ouvre pas en plein écran

je vous prie de m'aider à trouver une solution et merci beaucoup

bonsoir,

Faire un Double Clic sur ThisWorkbook et y coller la macro suivante :

Private Sub Workbook_Open
Plein_ecran
End Sub

A+