XL 2021 Extraire tous les caractères à gauche du 2eme espace

Function ExtraireChaine(ByVal Chaine As String) As String

Dim TabChaine As Variant

    ExtraireChaine = ""
    If InStr(1, Chaine, " ", vbTextCompare) > 0 Then
       TabChaine = Split(Chaine, " ")
       Debug.Print UBound(TabChaine)
       Select Case UBound(TabChaine)
              Case 1
                 ExtraireChaine = TabChaine(0)
              Case 2
                ' ExtraireChaine = TabChaine(0) & "-" & TabChaine(1)
                 ExtraireChaine = TabChaine(0) & " " & TabChaine(1)
       End Select
    End If

End Function