Private Sub UserForm_Initialize()
Set liste = CreateObject("scripting.dictionary")
With Sheets("PANELS")
For lig = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
liste(.Cells(lig, 1).Value) = ""
Next lig
End With
ComboBox1.List = Application.Transpose(liste.keys)
End Sub
Private Sub ComboBox1_Change()
ComboBox2.Clear
If ComboBox1.ListIndex = -1 Then Exit Sub
Set liste = CreateObject("scripting.dictionary")
With Sheets("PANELS")
For lig = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Cells(lig, 1) = ComboBox1 Then liste(.Cells(lig, 2).Value) = ""
Next lig
End With
If liste.Count > 0 Then ComboBox2.List = Application.Transpose(liste.keys)
End Sub