Essaie les deux fonctions ci dessous :
Function rue(complet)
lg_ch = Len(Trim(complet))
i = 1
Do While (IsNumeric(Right(complet, i)))
i = i + 1
Loop
rue = Left(complet, lg_ch - i + 1)
End Function
Function num(complet)
lg_ch = Len(Trim(complet))
i = 1
Do While (IsNumeric(Right(complet, i)))
i = i + 1
Loop
num = Right(complet, i - 1)
End Function