Sub b()
Dim str
str = Split("futru.ruyeh.rt.Ze", ".")
MsgBox str(UBound(str))
End Sub
Tu veux travailler sur des cellules
Code:
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