Macro : Copier une partie de la cellule

Bonjour,
Je voudrais faire une macro qui sélectionne et copie juste le début de ma cellule. Seulement, les textes à sélectionner ont des longueurs variables. Je vous donne un exemple :

BTP No.: 31313 - (libellé...)
FraisM No.: 30846 - (libellé...)

Les textes en rouge sont la partie de la cellule que je doit traiter. Je dois la copier et la coller dans un second tableau si elle n'est pas déjà présente dans le second tableau.
Le problème :
- Ne copier qu'une partie de la cellule.
- La longueur de la chaine à copier est variable.

J'espère avoir été assez clair.
Merci pour réflexions

Code:

---

PartieARécupérer = Split(Cells(NoLigne, NoCo).value," ")(0)

---