Problème dans un UserForm

Private Sub CommandButton1_Click()
Dim Init As String, Jour As Integer, Mois As Integer, Annee As Integer, Nbre As Long
Init = ComboBox1.Value
Jour = TextBox1.Value
Mois = TextBox2.Value
Annee = ComboBox2.Value
Nbre = 0
'de la 1ere à l'avant dernière feuille
For i = 1 To Sheets.Count - 1
'si le nom de la feuille i >= année choisie et l'année choisie est <= au nom de l'avant dernière feuille
  If Sheets(i).Name >= Sheets(CStr(Annee)).Name And Sheets(CStr(Annee)).Name <= Sheets(Sheets.Count - 1).Name Then
    'dans la feuille i
    With Sheets(i)
      'écrit en C2 la date choisie
      .Range("C2").Value = DateSerial(Annee, Mois, Jour)
      'en C1, formule sommeprod pour trouver le nombre dans le mois en cours
      .Range("C1").FormulaLocal = "=Sommeprod((" & .Range("A1", .Range("A65536").End(xlUp)).Address & ">=" & .Range("C2").Address & ")*(" & .Range("B1", .Range("B65536").End(xlUp)).Address & "=""" & Init & """))"
      'transfert du résultat vers "Nbre"
      Nbre = Nbre + .Range("C1").Value
      'on vide C1:C2
      .Range("C1:C2").Clear
    End With
  End If
Next
MsgBox "Il y a " & Nbre & " " & Init & " après le " & DateSerial(Annee, Mois, Jour)

End Sub