Dim y As Byte
Private Sub userform_initialize()
ListBox1.List = Feuil1.Range("a3:i" & Feuil1.Cells(Rows.Count, 1).End(xlUp).Row).Value
End Sub
Private Sub ListBox1_Click()
For y = 1 To 9: Controls("TextBox" & y) = ListBox1.List(ListBox1.ListIndex, y - 1): Next y
End Sub
Private Sub CommandButton1_Click()
For y = 1 To 9: Feuil1.Cells(ListBox1.ListIndex + 3, y) = Controls("TextBox" & y).Value: Next y
End Sub