Bonjour à tous. Mon problème est plutôt récurent car j'ai fait beaucoup de recherche sur les forums et je ne trouve pas de réponse

En fait mon objectif est de faire une boucle qui me permet d'incrémenter une valeur si l'utilisateur click sur le checkbox.
si il click sur le checkbox 1 la valeur B1 S'incrémente
si il click sur le checkbox 2 la valeur B2 S'incrémente
si il click sur le checkbox 3 la valeur B3 S'incrémente
etc.
et cela se répète sur 30 Checkbox.
Le problème c'est que avant même de faire la boucle il me pose un problème regarder mon code (juste pour l'essai)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub CommandButton2_Click()
Dim i As Integer
i = 1
If "checkbox" & i = True Then
  Sheets("feuil3").Range("B" & i).Value = Sheets("feuil3").Range("B" & i).Value + 1
  i = i + 1
  End If

End Sub
Le problème c'est qu'il n'accepte pas "checkbox" & i. Il ne veut pas s'incrémenter.
J'ai tout essayé ("checkbox" & i), checkbox(i), etc. Il ne veut rien entendre...

Help