Function code_Postal(v As String)
Dim T: T = Split(v, " ")
For I = UBound(T) To 0 Step -1
If IsNumeric(T(I)) And Len(T(I)) >= 5 Then code_Postal = Val(T(I))
Next
End Function
Function ville(v As String)
Dim T, I&: T = Split(v, " ")
For I = UBound(T) To 0 Step -1
If IsNumeric(T(I)) And Len(T(I)) >= 5 Then ville = Split(v, T(I))(1): Exit For
Next
End Function
Function adresseX(v As String)
Dim Add$, T, I&: T = Split(v, " ")
For I = 0 To UBound(T)
If IsNumeric(T(I)) And Len(T(I)) < 5 Then Add = Split(v, T(I))(1)
If IsNumeric(T(I)) And Len(T(I)) >= 5 Then Add = Split(Add, T(I))(0)
Next
adresseX = Add
End Function
Function Numero(v As String)
Dim num$, T, I&: T = Split(v, " ")
For I = 0 To UBound(T)
If IsNumeric(T(I)) And Len(T(I)) < 5 Then num = T(I): Exit For
Next
Numero = num
End Function
Function complementADresse(v As String)
Dim cmpad, T, I&: T = Split(v, " ")
For I = 0 To UBound(T)
If IsNumeric(T(I)) Then cmpad = Split(v, T(I))(0): Exit For
Next
complementADresse = cmpad
End Function