Probleme d'addition automatique sur macro

Private Sub CommandButton2_Click()
'
Dim Ligne As Long
'
  With Sheets("feuille1")
    Ligne = .Range("B65536").End(xlUp).Row + 1
    .Cells(Ligne, 2) = IIf(Me.ComboBox1.Value = "", "0", Me.ComboBox1.Value)
    .Cells(Ligne, 3) = IIf(Me.TextBox2.Value = "", "0", Me.TextBox2.Value)
    .Cells(Ligne, 4) = IIf(Me.TextBox3.Value = "", "0", Me.TextBox3.Value)
    .Cells(Ligne, 5) = IIf(Me.TextBox4.Value = "", "0", Me.TextBox4.Value)
    .Cells(Ligne, 6) = IIf(Me.TextBox5.Value = "", "0", Me.TextBox5.Value)
    .Cells(Ligne, 7) = IIf(Me.TextBox6.Value = "", "0", Me.TextBox6.Value)
    .Cells(Ligne, 8) = IIf(Me.TextBox7.Value = "", "0", Me.TextBox7.Value)
    .Cells(Ligne, 9) = IIf(Me.TextBox8.Value = "", "0", Me.TextBox8.Value)
    .Cells(Ligne, 10) = IIf(Me.TextBox9.Value = "", "0", Me.TextBox9.Value)
  End With
  
  ComboBox1.Value = ""
  
  For i = 2 To 9
    Me.Controls("TEXTBOX" & i) = ""
  Next
  
  ListBox1.Clear
  CommandButton13.Visible = False
  
End Sub