Récupérer texte entre 2 caractères

Option Explicit
Dim chaine As String
Dim nombre As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
chaine = Target.Value
separateur
Range("B" & Target.Row).Value = Split(chaine, " ")(nombre)
Range("B" & Target.Row).Value = Split(Range("B" & Target.Row).Value, ".")(0)
End If
End Sub
Sub separateur()
Dim str, num1, num2
str = chaine
num1 = Len(str)
str = Replace(str, " ", "")
num2 = Len(str)
num1 = num1 - num2
nombre = num1 'nombre total de séparateurs
End Sub

Option Explicit
'----------------------------
Function extraire(lig As Integer)
Dim xxx As String, Separe

Separe = Split(Cells(lig, "A"), " ")
xxx = Separe(2)
extraire = Left(xxx, Len(xxx) - 5)
End Function
'----------------------------
 'a partir de ton code lorsque le nom du classeur est trouvé
Sub Toncode()
'demo sur une ligne....par exemple la ligne 2
Dim lig As Integer

lig = Range("A2").Row
Range("B2") = extraire(lig)
End Sub