With Application
If .CommandBars.Item("Ribbon").Height > 80 Then
Ruban = True
.SendKeys "^{F1}"
DoEvents
.SendKeys ("{NUMLOCK} {NUMLOCK}"), True
End If
.ScreenUpdating = False
.EnableEvents = False
.DisplayFormulaBar = False
.DisplayStatusBar = False
.WindowState = xlMaximized
End With
etc.....