Re-Bonjour Tous le Monde,
En activant la macro,
Option Explicit
Sub Alt_Tab()
Application.SendKeys ("%+{TAB}")
End Sub
ça désactive la pavé numérique.
Pour qu'il reste actif, ajouter à la syntaxe:
Option Explicit
Sub Alt_Tab()
Application.SendKeys ("%+{TAB}") 'Active les Touches ALT+TAB'
If NumLock = False Then NumLock = True' 'Active le Pavé Numérique
End Sub
Voilà.