Function sufixe$(chaine As String)
For i = Len(chaine) To 1 Step -1
If Not IsNumeric(Mid(chaine, i, 1)) Then c = Mid(chaine, i, 1) & c Else Exit For
Next i
sufixe$ = trim(c)
End Function
Sub test()
MsgBox sufixe("toto titi 83 riri fifi 65 loulou 45232 taratata")
End Sub