Problème avec ComboBox1_Change()

Private Sub ComboBox1_AfterUpdate()
  Label3 = ""
  Label3 = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub

Private Sub UserForm_Initialize()
 ComboBox1.List = Feuil1.Range("a3:c" & Feuil1.Cells(Rows.Count, 1).End(xlUp).Row).Value
End Sub
Private Sub ComboBox1_Change()
Label3 = Cells(ComboBox1.ListIndex + 3, 2)
End Sub
Private Sub CommandButton1_Click()
 If ComboBox1.ListIndex < 0 Or TextBox1 = "" Then Exit Sub
 Cells(ComboBox1.ListIndex + 3, 3) = Cells(ComboBox1.ListIndex + 3, 3) + CDbl(TextBox1)
 ActiveWorkbook.Save: Unload Me: UserForm8.Show
End Sub
Private Sub CommandButton2_Click()
  Unload Me
End Sub