Extraire un texte a partir du 10eme espace

Bonjour, je recupere des infos depuis internet en copier/coller que je souhaite trier sous excel.

Je souhaiterais dans un premier temps extraire les nom (surlignés). LE seul argument commun à toute les lignes est le 10eme espace en partant de la droite. Cet éléments sera toujours vrai.

Pouvez m'aider car je ne maitrise pas les formules?

Merci

1 St Sulp Cameyrac21 10 7 0 3 0 36 16 0 20

2 Langon Fc 3 19 10 6 1 3 0 39 25 0 14

3 Gj Pays D Auros 19 10 6 1 3 0 29 24 0 5

4 Cenon Uscrd 2 18 10 6 0 4 0 46 21 0 25

5 Portes Entre 2 Mers 2 16 10 5 1 4 0 26 24 0 2

6 Castet-Caud-Maca(E) 2 13 10 4 1 5 0 28 33 0 -5

7 Talence Alliance Us 7 10 2 1 7 0 20 45 0 -25

8 Spuc 3 3 10 1 1 7 1 10 46 0 -36

Bonjour Nico, bonjour le forum.

Attention ! Ton surlignage est erroné pour la première ligne d'exemple qui devrait être St Sulp seulement...

Par formule je ne sais pas faire mais si une solution VBA peut t'intéresser en voici une :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim TVS() As Variant 'déclare la variable TVS (Tableau des valeurs Simplifiées)
Dim NE As Byte 'déclare la variable NE (Nombre d'Espaces)

Set O = Worksheets("Feuil1") 'définit l'onglet O
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
ReDim TVS(1 To UBound(TV, 1)) 'redimensionne le tableau des valeurs simplifiées TVS (autant de lignes qte TV)
For I = 1 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV
    NE = UBound(Split(TV(I, 1), " ")) 'définit le nombre d'espaces contenus dans la donnée ligne I colonne 1 de TV
    For J = 0 To NE - 10 'boucle de 0 au nombre d'espace NE moins 10
        'définit la valeur de l'élément I du tableau TSV (en ajoutant un espace entre chaque mot)
        TVS(I) = IIf(TVS(I) = "", Split(TV(I, 1), " ")(J), TVS(I) & " " & Split(TV(I, 1), " ")(J))
    Next J 'prochaine espace de la boucle
Next I 'prochaine ligne de la boucle
O.Range("C1").Resize(UBound(TV, 1), 1).Value = Application.Transpose(TVS) 'renvoie dans C1 (à adapter à ton cas) redimensionnée, le tableau TVS transposé
End Sub

le code renvoie les données a partir de C1, tu adapteras...

Slt, effectivement j,ai supprimé un espace par mégarde sur la premiere ligne.

Par contre, je ne connais absolument pas cette methode VBA ................. mon dieu