If [B][COLOR=blue]ActiveSheet.Shapes("Case à cocher 2").ControlFormat.Value = xlOn[/COLOR][/B] Then
Rows("15:24").EntireRow.Hidden = True
Else
If [COLOR=blue][B]ActiveSheet.Shapes("Case à cocher 2").ControlFormat.Value = xlOff[/B][/COLOR] Then
Rows("15:24").EntireRow.Hidden = False
End If
End If