Private Sub CommandButton1_Click()
Dim phrase
phrase = "ce que tu veux patin couffin etc.. et tout le reste et meme plus "
With TextBox1
.MultiLine = True ' au cas ou ca ne serait pas fait
.WordWrap = False ' avec false si la phrase est trop longue il y en aura une partie qui sera non visible , avec true le textbox subit le wordwrap et adapte le nombre de ligne
.Value = phrase & vbCrLf & .Value
End With
End Sub