Bonjour,
la touche est peut être défectueuse,
j'ai fait le test sur xl2010 win 7, je n'ai pas xl2013,
vous pouvez vérifier en exécutant la macro Test
Declare Function GetKeyState Lib "USER32" (ByVal nVirtKey As Long) As Integer
Const VK_NUMLOCK = 144
Function toucheEstActivée(ByVal codeTouche As Integer) As Boolean
toucheEstActivée = CInt(GetKeyState(codeTouche)) = 1
End Function
'Procédure testant l'état de la touche de verrouillage du pavé numérique
Sub test()
If toucheEstActivée(VK_NUMLOCK) Then
MsgBox "Le pavé numérique est activé"
Else
MsgBox "Le pavé numérique n'est pas activé"
End If
End Sub