Private Sub ComboBox1_Enter()
Dim tablo, i&
ComboBox1.Clear
ComboBox3.Clear
ComboBox3 = ""
tablo = Sheets("config").[A17].CurrentRegion.Columns(1)
For i = 2 To UBound(tablo)
If tablo(i, 1) <> "" Then ComboBox1.AddItem tablo(i, 1)
Next
End Sub
Private Sub ComboBox3_Enter()
Dim c As Range
If ComboBox1.ListIndex = -1 Then ComboBox3.Clear: Exit Sub
Set c = Sheets("config").[A17].CurrentRegion.Columns(1).Find(ComboBox1, , xlValues, xlWhole)
ComboBox3.List = c(1, 2).Resize(c.MergeArea.Count, 2).Value 'au moins 2 éléments
End Sub