Combobox ne trouve pas la valeur recherchée

If CStr(ActiveCell) = combobox1 Then

Private Sub CommandButton1_Click()
    If ComboBox1.ListIndex = -1 Or TextBox1 = "" Then Exit Sub
    With Feuil1.Range("B" & ComboBox1.ListIndex + 1)
        .Value = .Value + Val(TextBox1)
    End With
End Sub
Private Sub UserForm_initialize()
    With Worksheets("Feuil1")
        ComboBox1.List = .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
    End With
End Sub
Private Sub CommandButton2_Click()
    Unload Me
    UserForm2.Show
End Sub