Dim Ch As Integer 'Boucle pour les Checkbox
For Ch = 1 To 7
If Me("CheckBox" & Ch).Value = True Then
Me("CheckBox" & Ch).BackColor = RGB(255, 230, 153) 'Colore la CheckBox si celle-ci est sélectionnée
Else
Me("CheckBox" & Ch).BackColor = &HC0C000
End If
Next Ch
Dim Tx1 As Integer 'Test de Boucle pour la première ligne de TextBox
For Tx1 = 1 To 1
If Me("TextBox" & Tx1 + 20).Value > 0 Then
Me.Controls("TextBox" & Tx1 + 20).BackColor = RGB(255, 180, 100)
Else
Me("TextBox" & Tx1).BackColor = &HC0C000
End If
Next Tx1