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