Bonjour à tous,
Maintenant qu'il est établi que la réponse ne peut être fournie au niveau du format de cellule...
(Parenthèse toutefois pour souligner que ThauThème a fourni la solution pour un format de multiple d'unité, et que l'espace indiquée vaut pour les paramètres FR, le caractère à utiliser est le séparateur de milliers...)
...on ne peut donc y répondre que par l'évènement Change.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nk
If Target.Count > 1 Then Exit Sub
If InStr(Target, "k") > 0 Then
nk = Replace(Target, "k", "000")
If IsNumeric(nk) Then
Application.EnableEvents = False
Target = nk
Application.EnableEvents = True
End If
End If
End Sub
A placer dans le module de la feuille sur laquelle on veut que s'opère cette conversion.
Si c'est voulu pour le classeur, le code de la procédure est à transférer sur la procédure dévènement équivalente de niveau classeur (ThisWorkbook).
Cordialement.