Combobox double

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

Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("sport")
  For Each c In f.Range("C3:C" & f.[C65000].End(xlUp).Row)
    If c <> "" Then Me.ComboBox1.AddItem c
  Next
End Sub

Private Sub ComboBox1_click()
  Set début = f.Range("C2:C" & f.[C65000].End(xlUp).Row).Find(what:=Me.ComboBox1.Value)
  n = début.MergeArea.Count
  If n > 1 Then
    Me.ComboBox2.List = début.Offset(, 1).Resize(n).Value
  Else
    Me.ComboBox2.Clear
    Me.ComboBox2.AddItem début.Offset(, 1).Value
  End If
End Sub