càse à cocher multiples

Bonjour,

Dans une feuille excel, j'ai une série de case à cocher pour l'affichage d'une valeur de cellule. Mon script VB ressemble à ça :

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
[h4] = [d4]
Else
[h4] = "0"
End If
End Sub
.....
Private Sub CheckBox10_Click()
If CheckBox1.Value = True Then
[h13] = [d13]
Else
[h13] = "0"
End If
End Sub

Je ne connais que très peu le VB, mais je pense qu'il y a moyen de définir une fonction puis d'y faire appel afin d'incrémenter automatiquement les CheckBoxI+1_Click() et les cellules. Mais comment ? quelqu'un aurait-il une idée ?

merci

P.