Affichage barre d'outils

[Nicolas]

Voila j'ai un petit probleme :
j ai creer une procedure qui affiche toute les barres d'outils standard mais quand je l'applique elle en affiche certaine jusqu 'a stopper la procedure et m'indiquer l'erreur: "La methode visible de l'objet 'CommandBar' à échouer.
Je n'arrive oas a coriger le probleme, si quelqu'un pouvait m'aider a le résoudre.
voici le code:

Sub affiche_barre()
Dim cbar As Object

For Each cbar In Application.CommandBars
If Application.CommandBars(cbar.Index).Visible = False Then
Application.CommandBars(cbar.Index).Visible = True
End If
Next
End Sub

Merci d'avance