Thử
Private Sub ListBox1_Click()
Dim i As Long
i = ListBox1.ListIndex
With UserForm2
.TextBox22.Value = .ListBox1.List(i, 1)
.TextBox23.Value = .ListBox1.List(i, 2)
.ComboBox20.Value = .ListBox1.List(i, 3)
.TextBox24.Value = .ListBox1.List(i, 5)
.TextBox25.Value =...