XL 2010 complement sur code

Public flag As Boolean

Sub Affiche_Cache()
If flag Then
flag = False
Cache
Else
flag = True
Affiche
End If
End Sub

Sub Cache()

With Application
.ScreenUpdating = False
.DisplayFormulaBar = False
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End With

With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With

End Sub

Sub Affiche()

With Application
.ScreenUpdating = True
.DisplayFormulaBar = True
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End With

With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With

End Sub