Function ville(adresse)
For N = [COLOR=Blue]VBA.[/COLOR]Len(adresse) To 1 Step -1
If [COLOR=Blue]VBA.Asc[/COLOR]([COLOR=Blue]VBA.[/COLOR]Mid(adresse, N, 1)) > 47 And [COLOR=Blue]VBA.[/COLOR]Asc([COLOR=Blue]VBA.[/COLOR]Mid(adresse, N, 1)) < 58 Then
ville = ([COLOR=Blue]VBA.Mid[/COLOR](adresse, N + 1, [COLOR=Blue]VBA.Len[/COLOR](adresse) - N))
Exit Function
End If
Next
End Function