inserer un espace automatique entre deux chiffres a l'encodage DANS EXCel 2007

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, t As String
Set r = Intersect(Target, [A:A], Me.UsedRange) 'colonne A
If r Is Nothing Then Exit Sub
For Each r In r 'en cas d'entrées mutiples
  If Not r.Text Like "?? #### *" Then
    t = Replace(r.Text, " ", "")
    If t Like "??####*" Then
      t = Application.Replace(t, 3, , " ")
      r = Application.Replace(t, 8, , " ")
    End If
  End If
Next
End Sub

[<100000]0000" "0;[<1000000]0000" "00;0000" "000

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, t As String
Set r = Intersect(Target, [C:C], Me.UsedRange) 'colonne C
If r Is Nothing Then Exit Sub
For Each r In r 'en cas d'entrées mutiples
  If Not r.Text Like "#### *" Then
    t = Replace(r.Text, " ", "")
    If IsNumeric(t) Then r = Application.Replace(t, 5, , " ")
  End If
Next
End Sub