Bonjour Fabdu92, le Forum
D'abord efface ton exécution clavier CTRL + m en remplaçant le nom de ta procédure. Exemple: "untel" par un texte nul ""
Ensuite ne pas trop se servir de la touche CTRL qui est souvent utilisé par les programmes Excel etc...pour leurs propres raccourcis claviers. Lui préférer la touche ALT ou un duo de touches CTRL + ALT (voire CTRL + MAJ) à associer à une lettre minuscule.
Enfin teste bien ta procédure afin de voir si elle donne bien tous les résultats souhaités avec l'option. Puis encapsule cette procédure dans une autre qui ne détient pas d'option. Exemple simple.
Sub ALTw()
'Met en place le Contrôle clavier
Application.Onkey "%w", "Encaps"
End sub
Sub Encaps()
Range("A4") = 10
'Utilise la procédure Test avec une valeur
Test([A4])
End sub
Sub Test(x)
Range("A5") = x
End sub
Le contrôle clavier fait bien le job. A adapter à ton besoin.
Bons tests, bonne continuation.