Bonjour,
Pour répondre à la question en restant dans ta logique :
Sub A()
ActiveCell = ActiveCell & "A"
End Sub
'et ainsi de suite...
Seul un débutant ferait cela car ça pose de nombreux problèmes : Si tu veux insérer un caractère au début ou au milieu d'un mot, cela ne marche pas... Mettre en majuscule ou en minuscule supposerai 2 touches différentes...
A+