Private Sub Worksheet_Change(ByVal Target As Range)
'Faire une boucle sur chaque ligne de la ligne 1 à la ligne 7
If Target.Address = "$B$1" Then
'Si B1 + D1 + F1 + H1 + J1 + L1 + N1 = 7
If Target.Value = 1 Then
'Colorier la ligne 1 en rouge
Range(Cells(1, 1), Cells(1, 18)).Interior.ColorIndex = 3
'Déselectionner le checkbox en bout de ligne 1
CheckBox18.Enabled = False
[R1] = False
Else
'Colorier la ligne 1 en blanc
Range(Cells(6, 1), Cells(6, 18)).Interior.ColorIndex = 0
'Ne pas changer le statut du checkbox en bout de ligne 1
End If
End If
End Sub