Sub test()
' Http://www.abc.com/support/bbbb/help
Res = Split("Http://www.abc.com/support/bbbb/help", "/")(UBound(Split("Http://www.abc.com/support/bbbb/help", "/")) - 1)
' Soit
Msgbox Res
' ou si (Http://www.abc.com/support/cccc/help est dans la cellulle A1 de la feuille Excel)
Res = Split(Range("A1"), "/")(UBound(Split(Range("A1"), "/")) - 1)
Msgbox Res
End Sub