Re barre d'outil

Bonjour,
Dans le message du 16, michdenis m'a donné la solution au problème que
j'avais ( et je l'en remercie) en me conseillant de copier le script suivant
:
Dans le module feuille où tu veux voir afficher tes contrôles ou non selon
que la feuille est active ou non, copie ceci
> :
>
> '--------------------------
> Private Sub Worksheet_Activate()
>
> AfficherControls True
>
> End Sub
> '--------------------------
> Private Sub Worksheet_Deactivate()
>
> AfficherControls
>
> End Sub
> '--------------------------
>
> Et dans un module standard, tu copie ceci :
>
> '--------------------------------------------------
> Sub AfficherControls(Optional ByVal Res As Boolean)
>
> Dim CBar As CommandBar
> Dim Arr()
>
> 'tu insères la liste les "Caption" que tu as donné lors de leur création
> 'à tes boutons de commandes que tu veux masquer.
> Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
>
> 'Remplace Standard par le nom de la barre d'outils
> 'où tu as ajouté tes boutons
> Set CBar = Application.CommandBars("Standard")
>
> For Each elt In Arr
> CBar.Controls(elt).Visible = Res
> Next
>
> Set CBar = Nothing
> End Sub

Ca marche super bien sur les postes équipé de excel 2000 mais ca beug avec
excel 97. Que dois je faire???
Merci d'avance
Angela