Ajouter du texte dans un Userform

Bonjour à tous,

je souhaite dans un userform, ajouter du texte à une zone de texte.

Pour ce faire, j'ai une zone de texte saisissable, un bouton qui envoie le texte saisi dans une autre zone de texte, et qui remet à blanc la zone de saisie.

Mon souhait serait de pouvoir ajouter du texte : je saisis blabla, je clique sur le bouton, la zone de texte s'enrichit de "blabla". Je saisi ensuite jojo et la zone de texte devient "blabla jojo" (j'aiemrais tant qu'à faire un renvoi à la ligne).

ci-joint un fichier exmple.

en espérant avoir été clair, je remercie par avance les bonnes âmes qui prendront du temps sur ma question.

Bonsoir shagshag

Peux être comme ceci

Private Sub CommandButton1_Click()
'NE PAS OUBLIER DE PASSER LA PROPRIETE MULTILIGNE DU TEXTBOX2  A TRUE
If TextBox2 <> "" Then
    TextBox2 = TextBox2 & vbCr & TextBox1
Else
    TextBox2 = TextBox1
End If
    'Initialisation du champs après saisie
    With UserForm2
        TextBox1 = ""
    End With
End Sub

C'est parfait (... jusqu'à ma prochaine volonté d'évolution du fichier ), merci à toi !