format textbox

Bonjour à tous,

J'ai un petit probleme de retour à la ligne dans des textbox, non pas que j'y arrive pas mais j'ai un petit carré qui apparait à l'impression.
Le probleme est que je ne sais pas trop où mettre le code dans le code suivant :

Private Sub CmdValider_Click()
Dim i As Byte

If UserForm2.TextBox1.Value = "" Then
MsgBox " Le champ DEMANDEUR est obligatoire . "
Exit Sub
Else
Sheets("Feuil1").Select

'créer

Range("a65536").End(xlUp).Offset(1, 0).Select
Range("A3") = Replace(UserForm1.TextBox1, Chr(13) & Chr(10), Chr(10))

ActiveCell.Value = UserForm2.TextBox1.Value
ActiveCell.Offset(0, 1).Value = UserForm2.TextBox11.Value
ActiveCell.Offset(0, 2).Value = "'" & UserForm2.TextBox2.Value
ActiveCell.Offset(0, 4).Value = UserForm2.TextBox4.Value
ActiveCell.Offset(0, 5).Value = "'" & UserForm2.TextBox5.Value
ActiveCell.Offset(0, 6).Value = UserForm2.TextBox6.Value
ActiveCell.Offset(0, 7).Value = "'" & UserForm2.TextBox7.Value
ActiveCell.Offset(0, 8).Value = UserForm2.TextBox8.Value
ActiveCell.Offset(0, 9).Value = UserForm2.TextBox9.Value
ActiveCell.Offset(0, 10).Value = UserForm2.TextBox10.Value

Sheets("Feuil1").Select

ActiveWorkbook.Save

MsgBox " La fiche est créée "

J'ai le probleme sur plusieurs textbox
D'avance merci