Bonjour Jasmin,
Essaie ces macros et donne-moi des nouvelles.
Sub MaMacro()
MsgBox "Bonjour le monde !"
End Sub
Sub ToucheEntréePavéNumérique()
Application.OnKey "{ENTER}", "MaMacro"
End Sub
Sub ToucheEntrée()
Application.OnKey "~", "MaMacro"
End Sub
Sub AnnuleMaMacroSurToucheEntréePavéNumérique()
Application.OnKey "{ENTER}", ""
End Sub
Sub AnnuleMaMacroSurToucheEntrée()
Application.OnKey "{~}", ""
End Sub
Serge