Re j'ai un problème qui je le pense va très vite être réglé

Je souhaite en fonction que si ma check box est cochée, renvoyer une valeur dans une cellule d'une feuille. J'ai réussi à réaliser cela, mais je souhaiteré réduir mon code par ce que j'ai 400 check box et sa pernd de la place

Actuelement mon code est le suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CheckBox100_Click()
 
If CheckBox100 = True Then
Sheets("PP5").Select
Range("h49").Select
ActiveCell.FormulaR1C1 = "x"
 
Else
Sheets("PP5").Select
Range("h49").Select
ActiveCell.FormulaR1C1 = ""
 
End If
 
End Sub
Et j'ai essayé de le réduir comme ceci mais sa ne fonctionne pas:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub CheckBox1_Click()
 
If CheckBox1 = True Then
Sheets("PP1").Range("f31").Value = "x"
 
Else
Sheets("PP1").Range("f31").Value = ""
 
End If
 
End Sub
Merci du coup de pouce