non,non ça fonctionne pas comme tu le dis
mais je viens de lancer ce code
Sub ResetCommandBars()
Dim x
On Error Resume Next
For x = 1 To Application.CommandBars.Count
With Application.CommandBars(x)
.Reset
.Enabled = True
End With
Next x
End Sub
et tout est revenu dans l'ordre, du moins pour le moment
bonne journée et merci de ta réponse