Mettre en plein écran

Bonjour

J'ai mis ce code dans This Workboock pour afficher une feuille en plein écran mais j'ai un bug

Si vous avez un solution je suis preneur

je vos remercie

Private Sub Workbook_Open()
Worksheets("TOURNOI").DisplayFullScreen = True
Worksheets("TOURNOI").DisplayFullScreen = False
End Sub

J'ai trouvé

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.DisplayFullScreen = True
End Sub