Activation desactivation private sub ???

Bonsoir,

afin d'attribuer une macro ("choix_macro") à la touche "F6", j'ai trouvé une piste sur les forums en rédigeant ça dans la feuille du fichier concerné :

Private Sub Worsheet_activate()
    Application.OnKey "{F6}", "choix_macro"
End Sub

Private Sub Worksheet_Deactivate()
    Application.OnKey "{F6}"
End Sub

la 2eme partie, c'est (normalement ?) pour désactiver quand je sort du fichier... (?)

j'ai aussi rédigé ça dans "this workbook"

Private Sub Workbook_open()
    Application.OnKey "{F6}", "choix_macro"
End Sub

je ne suis pas si c'est très bien, mais ça fonctionne quand je commence mon travail, mais parfois, ça ne marche plus...

qu'est-ce qui ne va pas ?