Probleme de menu pour classeur

[nikoVB]

Bonjour à tous !
Voilà j'aimerai savoir si il était possible d'avoir 1 macro 'perso'permettant d'afficher un nouveau pour un classeur et avoir tous les menu pour
le 2eme classeur sachant que les classeurs peuvent être
ouvert en même temps . J'ai bien essayé mais lorsque je lance ma macro dans le classeur1 celà s'applique également au 2eme claseur . (J'espere m'être bien exprimer LOL ! )

voici mon code:

Private Sub CommandButton1_Click() 'bouton pour effacer tout les menu sauf le menu 'Menu'

debut = Timer
For i = 1 To 100
Application.CommandBars(i).Enabled = False
Next i
Application.CommandBars("Menu").Enabled = True
fin = Timer - debut
Range("A5").Value = fin
End Sub

Private Sub CommandButton2_Click() 'pour remettre les menus....
debut = Timer
Dim c As CommandBar
For i = 1 To 100
Application.CommandBars(i).Enabled = True
Next i
fin = Timer - debut
Range("A8").Value = fin
End Sub


Si vous avez une astuce ou autre je suis preneur
Merci et bonne journée a tous.

&NIKO