Charger une zone de liste modifiable à partir d'un code VBA

Option Explicit

Private Sub UserForm_Initialize()
Me.ComboBox1.List = Feuil1.Range("B4:B" & Feuil1.[B65536].End(xlUp).Row).Value
End Sub

Private Sub ComboBox1_Change()
Dim L As Long, T() As Variant
L = Me.ComboBox1.ListIndex + 1
If L > 0 Then
   T = Feuil1.[B4:F65536].Rows(L).Value
   Me.TextBox1.Text = T(1, 2)
   Me.TextBox2.Text = T(1, 3)
   Me.TextBox3.Text = T(1, 4)
   Me.TextBox4.Text = T(1, 5)
Else
   Me.TextBox1.Text = ""
   Me.TextBox2.Text = ""
   Me.TextBox3.Text = ""
   Me.TextBox4.Text = ""
   End If
End Sub

Private Sub UserForm_Initialize()
  Set f = Sheets("feuil1")
  Me.ComboBox1.List = f.Range("B4:F" & [B65000].End(xlUp).Row).Value
End Sub

Private Sub ComboBox1_Click()
  For i = 1 To 4
    Me("textbox" & i) = Me.ComboBox1.Column(i)
  Next i
End Sub