Bonsoir,
Comme toujours dans ce genre de choses, une fonction personnalisée est ce qu'il y a de plus simple.
Function EXTRACTENTRE(txt As String, s As String, rg As Integer)
Dim ttx
Application.Volatile
ttx = Split(txt, s)
EXTRACTENTRE = Trim(ttx(rg - 1))
End Function
S'utilise comme toute fonction d'Excel. Réclame comme argument la chaîne de texte dont il faut extraire un élément (la réf. de la cellule où elle se trouve), le séparateur des éléments (entre guillemets, dans ton cas "/") et le rang de l'élément à extraire (dans ton cas 4).
=EXTRACTENTRE(A1;"/";4)
La fonction est à placer dans un module standard (accéder à l'éditeur VBA par Alt+F11 et Insertion > Module > coller la fonction dans le module).
Cordialement.