Sub RemiseEnPlaceExcel()
Dim Cbar As CommandBar
Dim i As Byte
'ici une boucle pour remettre enabled toutes les CommandBar d'origine
For Each Cbar In Application.CommandBars
If Cbar.BuiltIn = True Then
If Cbar.Enabled = False Then Cbar.Enabled = True
End If
Next Cbar
'ici on Remets Visible et de l'ordre (et on remets enabled dans la Foulée au cas où !!)
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
With .CommandBars("Worksheet Menu Bar")
.Enabled = True
.Visible = True
End With
With .CommandBars("Standard")
.Enabled = True
.Visible = True
End With
With .CommandBars("Formatting")
.Enabled = True
.Visible = True
End With
With .CommandBars("Cell")
.Enabled = True
End With
End With
End Sub