VBA remplacer valeurs fin de ligne même cellule

Bonjour

Dans le doc et USF joint, je cherche à remplacer les valeurs de fin le ligne du TB1(en l'occurence 4 dans l'exemple) par une valeur que je taperai dans le TB3.

Je précise, ce ne sont pas tous les 4 que je cherche à remplacer, mais uniquement ceux se trouvant en fin de ligne

Merci d'avance

Bonjour Boby, bonjour le forum,

Je m'y casse les dents depuis pas mal de temps sans trouver de solution. Ce serait tellement plus simple si au lieu d'avoir tout dans une seule cellule tu avais chaque ligne dans une cellule différente soit 12 lignes au lieu d'une !... Ça te paraît possible ?

[Édition]

Je pense avoir trouvé une solution. J'ai rajouté un CommandButton à l'UserForm.

Le code :

Private Sub CommandButton1_Click()
Dim V As String

V = Sheets(1).Cells(1, 1)
V = Replace(V, " ", "")
V = Replace(V, Chr(13), "")
V = Replace(V, Chr(10), "X")
V = Replace(V, TextBox2 & "X", TextBox3 & "X")
V = Replace(V, "X", Chr(13) & Chr(10))
V = Mid(V, 1, Len(V) - 1)
V = V & TextBox3.Value
V = Replace(V, Chr(13) & Chr(10), Chr(13) & Chr(10) & Chr(10))
TextBox4 = V
End Sub

Le fichier :

Bonjour ThauThème

C'est parfait. Super !

Merci et bonne journée