Excel2010 traitement auto checkbox pour listbox

for i = 1 to 31

Sub traitement()
Dim i As Integer
For i = 1 To 31
    If CheckBox(i) = True Then
    ListBox1.AddItem CheckBox(i).Caption
    ElseIf CheckBox(i) = False Then
    ListBox1.RemoveItem CheckBox(i)
    Else
    End If
Next
End Sub

Private Sub CheckBox1_Click()
Call traitement
End Sub

Private Sub CheckBox1_Click()
Call traitement
End Sub

Option Explicit

Sub traitement(numCheck As Integer)
Dim i As Integer

    If Me.Controls("CheckBox" & numCheck) = True Then
        ListBox1.AddItem Me.Controls("CheckBox" & numCheck).Caption
    ElseIf Me.Controls("CheckBox" & numCheck) = False Then
        For i = 0 To ListBox1.ListCount - 1
            If ListBox1.List(i) = Me.Controls("CheckBox" & numCheck).Caption Then
                ListBox1.RemoveItem i
                Exit For
            End If
        Next i
    Else
    End If
End Sub


Private Sub CheckBox1_Change()
Call traitement(1)
End Sub

Private Sub CheckBox2_Change()
Call traitement(2)
End Sub

Private Sub CheckBox3_Change()
Call traitement(3)
End Sub

Private Sub CheckBox4_Change()
Call traitement(4)
End Sub

Private Sub CheckBox5_Change()
Call traitement(5)
End Sub

Private Sub CheckBox6_Change()
Call traitement(6)
End Sub

'etc etc etc etc..... 

Private Sub CheckBox31_Change()
Call traitement(31)
End Sub