listBox

UserForm2.TextBox1.Value = ListBox1.Value

Private Sub ListBox2_Click()
 Li = ListBox2.ListIndex
  TextBox1 = ListBox2.List(Li, 0) 'colonne1
   TextBox2 = ListBox2.List(Li, 1) 'colonne2
    TextBox3 = ListBox2.List(Li, 2) 'colonne3
     TextBox4 = ListBox2.List(Li, 3) 'colonne4
      TextBox5 = ListBox2.List(Li, 4) 'colonne5
       TextBox6 = ListBox2.List(Li, 5) 'colonne6
        TextBox7 = ListBox2.List(Li, 6) 'colonne7
        
     Me.Hide 'cache l'userform1 en selectionnant dans la listbox
    UserForm3.Show ' et ouverture UserForm3
  
 
End Sub

Private Sub CommandButton1_Click()
Unload Me
UserForm2.Show
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1 = UserForm2.TextBox1
Me.TextBox2 = UserForm2.TextBox2
Me.TextBox3 = UserForm2.TextBox3
Me.TextBox4 = UserForm2.TextBox4
Me.TextBox5 = UserForm2.TextBox5
Me.TextBox6 = UserForm2.TextBox6
Me.TextBox7 = UserForm2.TextBox7
End Sub