Private Sub ComboBox1_Change()
Dim C As Range, D As Range
Dim NbLig As Long, I As Long
Me.ComboBox2.Clear
If Me.ComboBox1 <> "" Then
With Sheets("SPORT")
Set C = .Columns(3).Find(Me.ComboBox1)
If Not C Is Nothing Then
NbLig = C.Areas(1).MergeArea.Count
Set D = C.Offset(, 1)
For I = 0 To NbLig - 1
Me.ComboBox2.AddItem D.Offset(I)
Next I
End If
End With
End If
End Sub
Private Sub UserForm_Initialize()
Dim Cel As Range
Dim DerLig As Long
With Sheets("SPORT")
DerLig = .Cells(Rows.Count, "C").End(xlUp).Row
For Each Cel In .Range("C3:C" & DerLig)
If Cel <> "" Then Me.ComboBox1.AddItem Cel.Value
Next Cel
End With
End Sub