Bonsoir, Banzai....
Une autre approche (d'après ton fichier) :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target Like "########[A-Z,a-z][A-Z,a-z]" Then
Application.EnableEvents = False
Target = Format(Val(Target), "#,##0") & " " & Right(Target, 2)
Application.EnableEvents = True
End If
End Sub
En sachant que la fonction Val te donne la valeur entière des premiers caractères numériques d'une suite, et plus exactement, comme dit dans l'aide :
La fonction Val arrête la lecture de la chaîne au premier caractère ne faisant apparemment pas partie d'un nombre
Bonne soirée