Pavé numérique se désactive après une recherche en VBA

Bonjour à tous et merci par avance pour votre aide.

J’ai créé un fichier Excel, qui comporte 2 feuilles :

Feuille 1 : avec un formulaire de saisie

Feuille 2 : une base de données

J’ai 3 macros

Dans la feuille 1 j’ai un bouton de macro :

• Macro1 basique qui m’envoie sur la feuille 2

Dans la feuille 2 j’ai deux boutons de macros :

Macro2 basique qui me permet de revenir sur la feuille 1 :

Sub Macro2()
’ Macro2 Macro
Sheets(« Formulaire »).Select
Range(« J7 »).Select
End Sub

Macro3 qui permet d’effectuer des recherches :

Sub Rechercher()
Application.SendKeys (« ^f »)
With CreateObject(« WScript.Shell »)
.SendKeys « {NUMLOCK} »
End With
End Sub

(J’ai trouvé cette formule ‘’Rechercher’’ sur Internet.)

Jusque-là tout fonctionne parfaitement.

Seulement, lorsque j’exécute la Macro3 et qu’ensuite je reviens sur la feuille 1 par l’intermédiaire de la macro2 le pavé numérique est désactivé.

Il me manque certainement un code à quelque part. J’ai fouillé partout sur internet, mais rien trouvé.
J’aimerai que le pavé numérique s’active après l’exécution d’une macro.

Merci infiniment de votre aide.

Bien cordialement