Simple, tu initialises le processus de detection de la touche voulue (ici "a") et y affecte une macro par
Public Sub MyMacro()
MsgBox "yes"
End Sub
Public Sub Intro()
ThisWorkbook.Application.OnKey "a", "ThisWorkbook.MyMacro"
End Sub
Pour desactiver, il suffit ensuite d'écrire
ThisWorkbook.Application.OnKey "a"
Irem