Macro : Copier coller une partie d'une cellule

Bonjour

j'essaye de créer un fichier qui permettrait d'extraire des données à partir d'une feuille vers une autre en les listant. J'ai globalement réussi la première étape de ce que j'aimerais faire mais je suis dorénavant bloqué.

Le problème est que dans ma feuille 1, certaines données dans les cellules que je veux transférer dans ma feuille "suivi" comprennent le libellé de la colonne, ce que donc j'aimerais bien supprimer.

Exemples :

feuil1 la cellule D4 = "N° Client : 11F635X2B718945"

j'aimerais que dans ma feuille "suivi", seul le numéro client "11F635X2B718945" soit rapatrié en cellule C4 par exemple

Feuil1 la cellule D5 = "Nom Client : Le client test de la mediterrannée"

j'aimerais que dans ma feuille "suivi", seul le nom du client "Le client test de la mediterrannée soit rapatrié en cellule D4 par exemple.

Je précise que je ne connaitrais pas le nombre de caractères des noms des clients par exemple, mais ils commenceront toujours après 13 caractères. Même logique pour les autres variables.

Pouvez vous m'aider ?

J'espère avoir été clair dans l'explication de mon problème.

Je vous remercie par avance et vous souhaite une bonne soirée.

Bonjour,
Pour le principe avec la fonction Split.
Cdlt.

Sub Macro1()
    For i = 4 To Range("A" & Rows.Count).End(xlUp).Row
        If Range("A" & i) = Worksheets("Synthèse").Range("B4").Value Then
            Worksheets("Suivi").Range("B" & i) = Split(Worksheets("Feuil 1").Range("D3"), " : ")(1)
            Worksheets("Suivi").Range("C" & i) = Split(Worksheets("Feuil 1").Range("D4"), " : ")(1)
            Worksheets("Suivi").Range("D" & i) = Split(Worksheets("Feuil 1").Range("D5"), " : ")(1)
            Worksheets("Suivi").Range("E" & i) = Split(Worksheets("Feuil 1").Range("I3"), " : ")(1)
            Worksheets("Suivi").Range("F" & i) = Split(Worksheets("Feuil 1").Range("I6"), " : ")(1)
        End If
    Next i
End Sub

Bonsoir

Je vous remercie, cela fonctionne parfaitement

mille merci !

bon weekend