[COLOR=DarkSlateGray][B]Option Explicit
Dim EtatEcran As Boolean
Private Sub Workbook_Activate()
With Application
EtatEcran = .DisplayFullScreen
.DisplayFullScreen = True
End With
End Sub
Private Sub Workbook_Deactivate()
With Application
.DisplayFullScreen = EtatEcran
End With
End Sub[/B][/COLOR]