Option Explicit
Dim WithEvents CBC As ComboBoxCasc
Private Sub UserForm_Initialize()
Dim N As Long
Set CBC = New ComboBoxCasc
CBC.Plage Feuil1.Rows(2).Resize(Feuil1.[A65536].End(xlUp).Row - 1)
For N = 1 To 6: CBC.Add Me.Controls("ComboBox" & N), N: Next N
CBC.Actualiser
End Sub
Private Sub CBC_Bingo(Lignes() As Long)
Dim T() As Variant, N As Long, L As Long, C As Long
Me.ListBox1.Clear
T = CBC.PlgTablo.Resize(, 6).Value
For N = 1 To UBound(Lignes)
L = Lignes(N)
Me.ListBox1.AddItem T(L, 1)
For C = 2 To 6: Me.ListBox1.List(N - 1, C - 1) = T(L, C): Next C
Next N
End Sub
Private Sub CBC_Défait()
Me.ListBox1.Clear
End Sub