Private Sub ModeEcran(Optional Normal As Boolean = True, Optional SB As Boolean = True)
With Application
.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", " & IIf(Normal, "True", "False") & ")": .DisplayFormulaBar = Normal
.DisplayStatusBar = SB
End With
ActiveWindow.DisplayHeadings = Normal
End Sub
Sub Test()
MsgBox "Passer en affichage ""plein écran"""
ModeEcran False
MsgBox "Passer en affichage Normal"
ModeEcran
End Sub