Chaîne de caractère - extraire une chaîne à gauche ou à droite du n-ième espace de la chaine

Public Function separe(Zone As Range, NbElement, NuméroElement)
'zone = le texte intial
'NbElement= le nombre de mots séparés d'un espace qui constituent la première partie de ton extract
'NuméroElement = la première ou seconde partie que tu souhaites
tablo = Split(Zone, " ")
If NuméroElement = 1 Then
    For i = 1 To NbElement
        rejoint = rejoint & " " & tablo(i - 1)
    Next i
   
Else
    For i = NbElement + 1 To UBound(tablo)+1
        rejoint = rejoint & " " & tablo(i - 1)
    Next i
End If
separe = Right(rejoint, Len(rejoint) - 1) 'pour supprimer l'espace en début de chaine
End Function