reconnaître données dans une cellule

Sub SépareCodePostal()
    TexteOriginal = Cells(1, 1).Value
    i = Len(TexteOriginal)
    'On part de la fin du texte et on remonte jusqu'à trouver un chiffre
    While Asc(Mid(TexteOriginal, i, 1)) > 57 Or Asc(Mid(TexteOriginal, i, 1)) < 48
        i = i - 1
    Wend
    'Une fois qu'on a trouvé un chiffre, on remonte jusqu'à trouver un espace
    While Asc(Mid(TexteOriginal, i, 1)) <= 57 And Asc(Mid(TexteOriginal, i, 1)) >= 48
        i = i - 1
    Wend
    'On sépare à cet endroit là
    Cells(1, 2).Value = Left(TexteOriginal, i)
    Cells(1, 3).Value = Right(TexteOriginal, Len(TexteOriginal) - i)
End Sub