Bonjour TOUCHATOUT
La réponse se trouve ici https://cellulexcel.blogspot.fr/p/adresse-decoupage.html
Ou plus rapide avec ce code à insérer dans un module = Macro "SeparAddresse"
Fichier corrigé dans ce sens.
Sub SeparAddresse()
Dim Csource As Integer, Cadd As Integer, CcodeP As Integer
Dim Cville As Integer, DebLig As Integer
Dim i As Long, e As Integer, Txt As String
Csource = 1 'colonne ou trouver la source - ici A
Cadd = 2 'Colonne où mettre l'adresse - ici C
CcodeP = 3 'Colonne où mettre le CP - ici D
Cville = 4 'Colonne où mettre la ville - ici E
DebLig = 2 'Ligne où commence le split ou ligne de départ
With Sheets("Feuil1")
For i = DebLig To .Range("A65536").End(xlUp).Row
Txt = .Cells(i, Csource)
If Len(Txt) > 6 Then
For e = 2 To Len(Txt)
If Mid(Txt, e, 1) <> " " And IsNumeric(Mid(Txt, e, 5)) Then
.Cells(i, Cadd) = Left(Txt, e - 1)
.Cells(i, CcodeP) = Mid(Txt, e, 5)
.Cells(i, Cville) = Mid(Txt, e + 6)
Exit For
End If
Next e
End If
Next i
End With
End Sub