Test sur plusieurs CheckBoxs

'cette procédure est a compléter ou à créer dans le code de UserForm1
Private Sub UserForm_Initialize()
'Tes instructions
'................
Init_CheckBox
End Sub

'cette procédure est à coller dans le code de UserForm1
'faire autant de procédures que de checkbox
'modifier les numéros des chekbox et des labels
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
   Label1.Caption = WorksheetFunction.Proper(Format(Now, "Dddd dd Mmmm yyyy"))
   Sheets("feuil1").Range("A1").Value = 1
   Sheets("feuil1").Range("B1").Value = Label1.Caption
Else
   Label1.Caption = ""
   Sheets("feuil1").Range("A1").Value = 0
   Sheets("feuil1").Range("B1").Value = Label1.Caption
End If
End Sub

'cette procédure est à coller dans le code de le code de UserForm1
'compléter le code suivant le modèle de Checkbox1
'autant de fois que de checkboxs
'modifier les numéros des chekboxs et des labels
Private Sub Init_CheckBox()
'Checkbox1
If Sheets("feuil1").Range("A1") = 1 Then
   CheckBox1.Value = True
   Label1.Caption = Sheets("feuil1").Range("B1").Value
Else
   CheckBox1.Value = False
   Label1.Caption = Sheets("feuil1").Range("B1").Value
End If

'Checkbox2
'........
'........

End Sub

Dim MonControl As Control 
For i = 1 To 25 
  MaCheck = "CheckBox" & i on crée une var contenant le nom de la checkbox 
  MonLab = "Label" & i + 81 'on crée le nom du Label correspondant 
    If Controls(MaCheck).Value = True Then 
        Controls(MonLab).Caption = "C'est Coché  "  
    Else 
        Controls(MonLab).Caption = "C'est décoché"  
    End If 
Next

if i =1 to 25 
if checkboxs(i) =true then 

next i

Private Sub UserForm_Initialize()
Dim I
'*** Récupérer les valeurs des CheckBox et labels
For I = 1 To 14
Me.Controls("Label" & 180 + I) = Sheets("USF").Cells(I, 2)
If Me.Controls("Label" & 180 + I) <> "" Then
Me.Controls("Label" & 180 + I).BackColor = vbGreen
End If
Next I
End Sub

'********** TEXTBOX (1)
Private Sub TextBox1_Change()
Sheets("USF").Cells(TextBox2.Value, 1) = TextBox1.Value
If TextBox1.Value = 0 Then
Me.Controls("Label" & 180 + TextBox2.Value).BackColor = &HFFFFC0
Me.Controls("Label" & 180 + TextBox2.Value).Caption = ""
Sheets("USF").Cells(TextBox2.Value, 2) = ""
Else
Me.Controls("Label" & 180 + TextBox2.Value).BackColor = vbGreen
Me.Controls("Label" & 180 + TextBox2.Value).Caption = WorksheetFunction.Proper(Format(Now, "Dddd dd Mmmm yyyy"))
Sheets("USF").Cells(TextBox2.Value, 2) = WorksheetFunction.Proper(Format(Now, "Dddd dd Mmmm yyyy"))
End If
End Sub

'********** TEXTBOX (2)
Private Sub TextBox2_Change()
Sheets("USF").Cells(TextBox2.Value, 1) = TextBox1.Value
If TextBox1.Value = 0 Then
Me.Controls("Label" & 180 + TextBox2.Value).BackColor = &HFFFFC0
Me.Controls("Label" & 180 + TextBox2.Value).Caption = ""
Sheets("USF").Cells(TextBox2.Value, 2) = ""
Else
Me.Controls("Label" & 180 + TextBox2.Value).BackColor = vbGreen
Me.Controls("Label" & 180 + TextBox2.Value).Caption = WorksheetFunction.Proper(Format(Now, "Dddd dd Mmmm yyyy"))
Sheets("USF").Cells(TextBox2.Value, 2) = WorksheetFunction.Proper(Format(Now, "Dddd dd Mmmm yyyy"))
End If
End Sub

'############## CHECKBOX (1 à 14)  LABELS (181 à 194)
Private Sub CheckBox1_Click()
TextBox2.Value = 1
TextBox1.Value = CheckBox1.Value * -1
End Sub

Private Sub CheckBox2_Click()
TextBox2.Value = 2
TextBox1.Value = CheckBox2.Value * -1
End Sub

Private Sub CheckBox3_Click()
TextBox2.Value = 3
TextBox1.Value = CheckBox3.Value * -1
End Sub

Private Sub CheckBox4_Click()
TextBox2.Value = 4
TextBox1.Value = CheckBox4.Value * -1
End Sub

Private Sub CheckBox5_Click()
TextBox2.Value = 5
TextBox1.Value = CheckBox5.Value * -1
End Sub

Private Sub CheckBox6_Click()
TextBox2.Value = 6
TextBox1.Value = CheckBox6.Value * -1
End Sub

Private Sub CheckBox7_Click()
TextBox2.Value = 7
TextBox1.Value = CheckBox7.Value * -1
End Sub

Private Sub CheckBox8_Click()
TextBox2.Value = 8
TextBox1.Value = CheckBox8.Value * -1
End Sub

Private Sub CheckBox9_Click()
TextBox2.Value = 9
TextBox1.Value = CheckBox9.Value * -1
End Sub

Private Sub CheckBox10_Click()
TextBox2.Value = 10
TextBox1.Value = CheckBox10.Value * -1
End Sub

Private Sub CheckBox11_Click()
TextBox2.Value = 11
TextBox1.Value = CheckBox11.Value * -1
End Sub

Private Sub CheckBox12_Click()
TextBox2.Value = 12
TextBox1.Value = CheckBox12.Value * -1
End Sub

Private Sub CheckBox13_Click()
TextBox2.Value = 13
TextBox1.Value = CheckBox13.Value * -1
End Sub

Private Sub CheckBox14_Click()
TextBox2.Value = 14
TextBox1.Value = CheckBox14.Value * -1
End Sub