pavé numérique

Bonsoir j'ai un problème avec la macro suivante qui désactive le pavé numérique quand elle s'éxécute. Cette macro ouvre un fichier .txt et copie l'ensemble de son contenu dans le presse papier. Quelqu'un pourrait-il m'aider ? Sub OuvrirASSUAvecBlocNotes() Dim CheminFichier As String Dim...