Extraire un élément d'une phrase

Bonjour à tous,

Je n'ai pas trouvé de sujet similaire alors je me lance.

Je cherche moyen d'extraire une "référence" se trouvant dans une "phrase". Le problème étant que la "phrase" n'est pas tout le temps la même et possède des formes différentes.

Je joins un extrait de tableau regroupant plusieurs cas possibles pour être plus clair.

Les cellules en jaune correspondent aux résultats que je souhaite obtenir.

L’élément que je cherche à extraire peut également prendre plusieurs formes (T1 ou T01 par exemple). Il s’arrête cependant à T50.

Merci beaucoup a ceux qui voudront bien m'aider !

Bonjour RomainStagiaire2,

Un essai en pièce jointe.

Bonjour Florian53 !

Tout d'abord merci, c'est exactement ce que je voulais faire.

Je ne comprends pas entièrement votre code, notamment la dernière ligne, que fait-elle ?

J'ai essayé de rependre le code afin d'aller un tout petit peu plus loin et récupérer les type des travaux (GC ou FO)

Sub extract()
    Dim ws As Worksheet
    Dim Tablo

    Set ws = Sheets("Feuil1")
    Tablo = ws.Range("A1").CurrentRegion

    For i = 2 To UBound(Tablo, 1)
        If Tablo(i, 1) <> "" Then
            Txt = Split(Tablo(i, 1), " ")
            For Each c In Txt
                If c Like "T*" And Len(c) <= 3 Then Tablo(i, 2) = c
                If c Like "Genie Civil" Then Tablo(i, 3) = "GC"
                If c Like "Fibre Optique" Then Tablo(i, 3) = "FO"
            Next c

        End If
    Next i

    ws.Range("A1").Resize(UBound(Tablo, 1), UBound(Tablo, 2), UBound(Tablo, 3)) = Tablo

End Sub

Ce code m’affiche l'erreur "Nombre d'arguments incorrect ou affectation de propriété incorrecte" à la dernière ligne que je ne comprends pas.

Merci en tout cas !