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)
Me.ComboBox2.List = début.Offset(, 1).Resize(début.MergeArea.Count, 2).Value
End Sub
Private Sub combobox2_click()
Me.TextBox1.Value = Me.ComboBox2.List(Me.ComboBox2.ListIndex, 1)
End Sub