Modifier valeur de cellule

Bonjour,
Dans ma cellule A1 si je tape 1 le1 doit être remplacer par LYON si je tape 2 le 2doit être remplacer
par Lille j'ai trouvé un code que j'ai adapté mais je suis obligé de faire un clic sur le chiffre 1 ou 2
pour que le résultat apparaisse ,je souhaiterais que le changement se fasse directement aprés avoir
rentré le chiffre
Voir le code ci-dessous

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal c As Range)
    If c.Count > 1 Then Exit Sub
    If c <> "" And c = "1" Or c = "2" Then
        If c = "1" Then
            c = "LYON"
        Else
            c = "Lille"
        End If
    End If
End Sub

<code>

</code>

Merci pour votre aide
Cordialement