Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.CheckBoxes("Case à cocher 1").Value = 1 Then
Sheets(ActiveSheet.Name).Rows(8).Interior.ColorIndex = 3
Else
Sheets(ActiveSheet.Name).Rows(8).Interior.ColorIndex = xlNone
End If
End Sub