Private Sub RichTextBox2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox2.KeyUp Dim numérodeligne As Integer numérodeligne = RichTextBox2.GetLineFromCharInd(RichTextBox2.SelectionStart) TextBox11.Text = RichTextBox2.Lines(numérodeligne) End Sub