Extraire 1 texte apres le 2° espace sujet

bonsoir a tous
mon probleme :extraire 1 texte apres le 2° espace
par exemple ;
en colonne a: Vos questions sur les fonctions, formules, manipulations.
je desire obtenir:
en colonne b: vos
en colonne c: questions
en colonne d: sur les fonctions, formules, manipulations.
j'ai ce code mais je bute sur "cel.Offset(0, 3).Value = Split(Trim(cel.Value), " ")(2)"

Code:

---

Sub extraire()
Dim cel As Range
For Each cel In Range("a2:a50")
cel.Offset(0, 1).Value = Split(Trim(cel.Value), " ")(0)
cel.Offset(0, 2).Value = Split(Trim(cel.Value), " ")(1)
cel.Offset(0, 3).Value = Split(Trim(cel.Value), " ")(2)
Next
End Sub

---

Nota :le texte peut aussi ne contenir que 2 mots donc 1 espace!
merci pour votre aide et bon week-end