Sub b()
Dim str
str = Split("futru.ruyeh.rt.Ze", ".")
MsgBox str(UBound(str))
End Sub
Sub b_range()
Dim c As Range
For Each c In Range([A1], [A65536].End(xlUp))
c.Offset(, 1) = Split(c.Text, ".")(UBound(Split(c.Text, ".")))
Next c
End Sub
=DROITE(A2;NBCAR(A2)-TROUVE("µ";SUBSTITUE(A2;".";"µ";NBCAR(A2)-NBCAR(SUBSTITUE(A2;".";"")))))