Option Explicit
Private Sub Job(lig As Byte, G%)
With Cells(lig, 1).Resize(, 6).Interior
If G >= 0 Then .Color = RGB(255, G, 0) Else .ColorIndex = -4142
End With
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 Then Job 6, 0 Else Job 6, -1
End Sub
Private Sub CheckBox2_Click()
If CheckBox2 Then Job 7, 32 Else Job 7, -1
End Sub
Private Sub CheckBox3_Click()
If CheckBox3 Then Job 8, 64 Else Job 8, -1
End Sub
Private Sub CheckBox4_Click()
If CheckBox4 Then Job 9, 96 Else Job 9, -1
End Sub