[RESOLU] Gestion des listes déroulantes.

Private Sub BtnClose_Click()
Unload Me
Range("A2").Select
End Sub


Private Sub UserForm_Initialize()

  Set f = Sheets("Liste")
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range(f.[A3], f.[A150].End(xlUp))
    If c.Value <> "" Then MonDico.Item(c.Value) = c.Value
  Next c
  Me.ComboBox1.List = MonDico.items
  SendKeys "{F4}"
  
End Sub

Private Sub ComboBox1_Change()
  Set f = Sheets("Liste")
  i = 0
  Me.ComboBox2.Clear
  For Each c In Range(f.[A3], f.[A150].End(xlUp))
   If CStr(c) = Me.ComboBox1 Then   '///
       Me.ComboBox2.AddItem
       Me.ComboBox2.List(i, 0) = c.Offset(, 1).Value
       Me.ComboBox2.List(i, 1) = c.Offset(0, 2).Value
       Me.ComboBox2.List(i, 2) = c.Offset(0, 3).Value
       Me.ComboBox2.List(i, 3) = c.Offset(0, 4).Value
       
       i = i + 1
   End If
  Next c
  Me.ComboBox2.SetFocus
  SendKeys "{F4}"
  
End Sub

Private Sub ComboBox2_Change()
Dim i As Long
If Me.ComboBox2.ListIndex > -1 Then
  For i& = 0 To 3
    Me.Controls("Box" & i + 1 & "") = Me.ComboBox2.Column(i)
  Next i
End If
End Sub

Private Sub BtnValider_Click()
Dim Cible As Range
Dim i As Long
Dim var As Variant
Set Cible = Range("f6")
For i& = 0 To 3
  var = Me.Controls("Box" & i + 1 & "")
  If IsNumeric(var) Then var = CDbl(var)
  Cible.Offset(i, 0) = var
Next i
Unload Me
Range("A2").Select
End Sub