Selection d'une ligne compléte dans une textbox

Private Sub CommandButton1_Click()
Dim x
x = Split(TextBox1.Text, vbCrLf, , vbTextCompare)
TextBox2.Text = x(1)
End Sub
Private Sub UserForm_Initialize()
TextBox1 = "aaa" & Chr(13) & "bbb" & Chr(13) & "ccc" & Chr(13) & "ddd"
End Sub

[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] TextBox1_MouseUp([COLOR=NAVY]ByVal[/COLOR] Button [COLOR=NAVY]As Integer[/COLOR], [COLOR=NAVY]ByVal[/COLOR] Shift [COLOR=NAVY]As Integer[/COLOR], [COLOR=NAVY]ByVal[/COLOR] X [COLOR=NAVY]As Single[/COLOR], [COLOR=NAVY]ByVal[/COLOR] Y [COLOR=NAVY]As Single[/COLOR])
[COLOR=NAVY]Dim[/COLOR] LignCourante [COLOR=NAVY]As Long
Dim[/COLOR] Pos [COLOR=NAVY]As Long[/COLOR], Pos1 [COLOR=NAVY]As Long[/COLOR], Pos2 [COLOR=NAVY]As Long
    With[/COLOR] TextBox1
        Pos = .SelStart
        LignCourante = .CurLine
        [COLOR=NAVY]If[/COLOR] LignCourante = 0 [COLOR=NAVY]Then[/COLOR]
            Pos1 = 0
        [COLOR=NAVY]Else
            Do While[/COLOR] .CurLine = LignCourante
                .SelStart = .SelStart - 1
            [COLOR=NAVY]Loop[/COLOR]
            Pos1 = .SelStart + 1
        [COLOR=NAVY]End If[/COLOR]
        .SelStart = Pos
        [COLOR=NAVY]If[/COLOR] LignCourante = .LineCount - 1 [COLOR=NAVY]Then[/COLOR]
            Pos2 = Len(.Text)
        [COLOR=NAVY]Else
            Do While[/COLOR] .CurLine = LignCourante
                .SelStart = .SelStart + 1
            [COLOR=NAVY]Loop[/COLOR]
            Pos2 = .SelStart - 1
        [COLOR=NAVY]End If[/COLOR]
        .SelStart = Pos1
        .SelLength = Pos2 - Pos1
    [COLOR=NAVY]End With
End Sub[/COLOR]
[/SIZE]