Sub Initialiser()
'se lance par Ctrl+I
With Application
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)" 'affiche le ruban
.DisplayFormulaBar = True
.WindowState = xlNormal
.Height = 600
.Width = 1000
.WindowState = xlMaximized
End With
End Sub
Sub Diminuer()
'se lance pat Ctrl+D
With Application
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 'masque le ruban
.DisplayFormulaBar = False
.WindowState = xlNormal
.Height = 0.9 * .Height
.Width = 0.9 * .Width
End With
End Sub