Bonsoir, voir comme ceci, si problème revenir !?
exemple à adapter, ici dans le code c'est Userform1 et la macro à lancer c'est Essai !
dans ton module "Essai" à adapter !?
Sub Essai()
UserForm1.Show
End Sub
dans le thisworkbook le nom "Essai" à adapter !?
'active
Private Sub Workbook_Open()
Application.OnKey "%{F11}", "Essai"
End Sub
Private Sub Workbook_Activate()
Application.OnKey "%{F11}", "Essai"
End Sub
'désactive
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "%{F11}"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "%{F11}"
End Sub