If Range("R6").Value < 6 Then
    ActiveSheet.Shapes("aa").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour1").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour41").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour81").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour1").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour1").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour1").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour1").Fill.ForeColor.SchemeColor = 1
    ElseIf Range("R6").Value = 6 Then
    ActiveSheet.Shapes("aa").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour1").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour41").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour81").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour1").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour1").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour1").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour1").Fill.ForeColor.SchemeColor = 0
    ElseIf Range("R6").Value > 6 Then
    ActiveSheet.Shapes("aa").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour1").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour41").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour81").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour1").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour1").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour1").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour1").Fill.ForeColor.SchemeColor = 0
    End If
     Sheets("Feuil1").Select
    If Range("R7").Value < 6 Then
    ActiveSheet.Shapes("bb").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour2").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour42").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour82").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour2").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour2").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour2").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour2").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R7").Value = 6 Then
    ActiveSheet.Shapes("bb").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour2").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour42").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour82").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour2").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour2").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour2").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour2").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R7").Value > 6 Then
    ActiveSheet.Shapes("bb").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour2").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour42").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour82").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour2").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour2").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour2").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour2").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R8").Value < 6 Then
    ActiveSheet.Shapes("cc").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour3").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour43").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour83").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour3").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour3").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour3").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour3").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R8").Value = 6 Then
    ActiveSheet.Shapes("cc").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour3").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour43").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour83").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour3").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour3").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour3").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour3").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R8").Value > 6 Then
    ActiveSheet.Shapes("cc").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour3").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour43").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour83").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour3").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour3").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour3").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour3").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R9").Value < 6 Then
    ActiveSheet.Shapes("dd").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour4").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour44").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour84").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour4").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour4").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour4").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour4").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R9").Value = 6 Then
    ActiveSheet.Shapes("dd").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour4").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour44").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour84").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour4").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour4").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour4").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour4").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R9").Value > 6 Then
    ActiveSheet.Shapes("dd").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour4").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour44").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour84").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour4").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour4").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour4").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour4").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R10").Value < 6 Then
    ActiveSheet.Shapes("ee").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour5").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour45").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour85").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour5").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour5").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour5").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour5").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R10").Value = 6 Then
    ActiveSheet.Shapes("ee").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour5").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour45").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour85").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour5").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour5").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour5").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour5").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R10").Value > 6 Then
    ActiveSheet.Shapes("ee").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour5").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour45").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour85").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour5").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour5").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour5").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour5").Fill.ForeColor.SchemeColor = 0
    End If
     Sheets("Feuil1").Select
    If Range("R11").Value < 6 Then
    ActiveSheet.Shapes("ff").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour6").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour46").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour86").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour6").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour6").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour6").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour6").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R11").Value = 6 Then
    ActiveSheet.Shapes("ff").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour6").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour46").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour86").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour6").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour6").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour6").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour6").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R11").Value > 6 Then
    ActiveSheet.Shapes("ff").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour6").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour46").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour86").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour6").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour6").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour6").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour6").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R12").Value < 6 Then
    ActiveSheet.Shapes("gg").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour7").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour47").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour87").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour7").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour7").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour7").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour7").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R12").Value = 6 Then
    ActiveSheet.Shapes("gg").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour7").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour47").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour87").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour7").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour7").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour7").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour7").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R12").Value > 6 Then
    ActiveSheet.Shapes("gg").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour7").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour47").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour87").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour7").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour7").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour7").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour7").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R13").Value < 6 Then
    ActiveSheet.Shapes("hh").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour8").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour48").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour88").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour8").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour8").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour8").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour8").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R13").Value = 6 Then
    ActiveSheet.Shapes("hh").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour8").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour48").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour88").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour8").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour8").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour8").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour8").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R13").Value > 6 Then
    ActiveSheet.Shapes("hh").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour8").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour48").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour88").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour8").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour8").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour8").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour8").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R14").Value < 6 Then
    ActiveSheet.Shapes("ii").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour9").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour49").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour89").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour9").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour9").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour9").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour9").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R14").Value = 6 Then
    ActiveSheet.Shapes("ii").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour9").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour49").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour89").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour9").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour9").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour9").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour9").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R14").Value > 6 Then
    ActiveSheet.Shapes("ii").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour9").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour49").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour89").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour9").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour9").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour9").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour9").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R15").Value < 6 Then
    ActiveSheet.Shapes("jj").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour10").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour50").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour90").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour10").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour10").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour10").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour10").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R15").Value = 6 Then
    ActiveSheet.Shapes("jj").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour10").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour50").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour90").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour10").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour10").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour10").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour10").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R15").Value > 6 Then
    ActiveSheet.Shapes("jj").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour10").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour50").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour90").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour10").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour10").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour10").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour10").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R16").Value < 6 Then
    ActiveSheet.Shapes("kk").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour11").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour51").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour91").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour11").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour11").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour11").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour11").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R16").Value = 6 Then
    ActiveSheet.Shapes("kk").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour11").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour51").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour91").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour11").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour11").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour11").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour11").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R16").Value > 6 Then
    ActiveSheet.Shapes("kk").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour11").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour51").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour91").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour11").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour11").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour11").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour11").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R17").Value < 6 Then
    ActiveSheet.Shapes("ll").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour12").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour52").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour92").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour12").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour12").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour12").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour12").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R17").Value = 6 Then
    ActiveSheet.Shapes("ll").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour12").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour52").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour92").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour12").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour12").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour12").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour12").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R17").Value > 6 Then
    ActiveSheet.Shapes("ll").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour12").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour52").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour92").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour12").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour12").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour12").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour12").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R18").Value < 6 Then
    ActiveSheet.Shapes("mm").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour13").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour53").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour93").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour13").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour13").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour13").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour13").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R18").Value = 6 Then
    ActiveSheet.Shapes("mm").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour13").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour53").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour93").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour13").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour13").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour13").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour13").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R18").Value > 6 Then
    ActiveSheet.Shapes("mm").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour13").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour53").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour93").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour13").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour13").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour13").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour13").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R19").Value < 6 Then
    ActiveSheet.Shapes("nn").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour14").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour54").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour94").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour14").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour14").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour14").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour14").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R19").Value = 6 Then
    ActiveSheet.Shapes("nn").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour14").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour54").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour94").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour14").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour14").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour14").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour14").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R19").Value > 6 Then
    ActiveSheet.Shapes("nn").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour14").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour54").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour94").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour14").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour14").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour14").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour14").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R20").Value < 6 Then
    ActiveSheet.Shapes("oo").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour15").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour55").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour95").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour15").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour15").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour15").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour15").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R20").Value = 6 Then
    ActiveSheet.Shapes("oo").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour15").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour55").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour95").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour15").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour15").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour15").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour15").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R20").Value > 6 Then
    ActiveSheet.Shapes("oo").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour15").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour55").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour95").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour15").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour15").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour15").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour15").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R21").Value < 6 Then
    ActiveSheet.Shapes("pp").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour16").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour56").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour96").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour16").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour16").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour16").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour16").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R21").Value = 6 Then
    ActiveSheet.Shapes("pp").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour16").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour56").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour96").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour16").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour16").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour16").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour16").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R21").Value > 6 Then
    ActiveSheet.Shapes("pp").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour16").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour56").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour96").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour16").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour16").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour16").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour16").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R22").Value < 6 Then
    ActiveSheet.Shapes("qq").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour17").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour57").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour97").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour17").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour17").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour17").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour17").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R22").Value = 6 Then
    ActiveSheet.Shapes("qq").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour17").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour57").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour97").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour17").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour17").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour17").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour17").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R22").Value > 6 Then
    ActiveSheet.Shapes("qq").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour17").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour57").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour97").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour17").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour17").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour17").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour17").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R23").Value < 6 Then
    ActiveSheet.Shapes("rr").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour18").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour58").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour98").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour18").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour18").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour18").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour18").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R23").Value = 6 Then
    ActiveSheet.Shapes("rr").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour18").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour58").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour98").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour18").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour18").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour18").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour18").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R23").Value > 6 Then
    ActiveSheet.Shapes("rr").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour18").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour58").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour98").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour18").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour18").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour18").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour18").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R24").Value < 6 Then
    ActiveSheet.Shapes("ss").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour19").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour59").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour99").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour19").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour19").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour19").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour19").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R24").Value = 6 Then
    ActiveSheet.Shapes("ss").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour19").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour59").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour99").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour19").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour19").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour19").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour19").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R24").Value > 6 Then
    ActiveSheet.Shapes("ss").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour19").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour59").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour99").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour19").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour19").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour19").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour19").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R25").Value < 6 Then
    ActiveSheet.Shapes("tt").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour20").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour60").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour100").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour20").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour20").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour20").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour20").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R25").Value = 6 Then
    ActiveSheet.Shapes("tt").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour20").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour20").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour100").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour20").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour20").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour20").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour20").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R25").Value > 6 Then
    ActiveSheet.Shapes("tt").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour20").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour60").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour100").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour20").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour20").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour20").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour20").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R26").Value < 6 Then
    ActiveSheet.Shapes("uu").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour21").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour61").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour101").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour21").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour21").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour21").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour21").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R26").Value = 6 Then
    ActiveSheet.Shapes("uu").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour21").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour61").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour101").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour21").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour21").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour21").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour21").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R26").Value > 6 Then
    ActiveSheet.Shapes("uu").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour21").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour61").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour101").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour21").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour21").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour21").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour21").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R27").Value < 6 Then
    ActiveSheet.Shapes("vv").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour22").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour62").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour102").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour22").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour22").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour22").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour22").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R27").Value = 6 Then
    ActiveSheet.Shapes("vv").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour22").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour62").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour102").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour22").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour22").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour22").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour22").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R27").Value > 6 Then
    ActiveSheet.Shapes("vv").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour22").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour62").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour102").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour22").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour22").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour22").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour22").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R28").Value < 6 Then
    ActiveSheet.Shapes("ww").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour23").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour63").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour103").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour23").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour23").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour23").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour23").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R28").Value = 6 Then
    ActiveSheet.Shapes("ww").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour23").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour63").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour103").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour23").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour23").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour23").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour23").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R28").Value > 6 Then
    ActiveSheet.Shapes("ww").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour23").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour63").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour103").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour23").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour23").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour23").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour23").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R29").Value < 6 Then
    ActiveSheet.Shapes("xx").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour24").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour64").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour104").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour24").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour24").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour24").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour24").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R29").Value = 6 Then
    ActiveSheet.Shapes("xx").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour24").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour64").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour104").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour24").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour24").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour24").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour24").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R29").Value > 6 Then
    ActiveSheet.Shapes("xx").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour24").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour64").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour104").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour24").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour24").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour24").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour24").Fill.ForeColor.SchemeColor = 0
    End If
     
End Sub
Sub Bouton17_Cliquer()
If Range("R30").Value < 6 Then
    ActiveSheet.Shapes("yy").Fill.Visible = msoFalse
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour25").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour65").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour105").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour25").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour25").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour25").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour25").Fill.ForeColor.SchemeColor = 1
    ElseIf Range("R30").Value = 6 Then
    ActiveSheet.Shapes("yy").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour25").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour65").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour105").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour25").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour25").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour25").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour25").Fill.ForeColor.SchemeColor = 0
    ElseIf Range("R30").Value > 6 Then
    ActiveSheet.Shapes("yy").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour25").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour65").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour105").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour25").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour25").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour25").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour25").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R31").Value < 6 Then
    ActiveSheet.Shapes("zz").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour26").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour66").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour106").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour26").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour26").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour26").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour26").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R31").Value = 6 Then
    ActiveSheet.Shapes("zz").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour26").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour66").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour106").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour26").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour26").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour26").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour26").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R31").Value > 6 Then
    ActiveSheet.Shapes("zz").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour26").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour66").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour106").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour26").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour26").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour26").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour26").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R32").Value < 6 Then
    ActiveSheet.Shapes("ab").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour27").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour67").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour107").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour27").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour27").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour27").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour27").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R32").Value = 6 Then
    ActiveSheet.Shapes("ab").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour27").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour67").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour107").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour27").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour27").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour27").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour27").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R32").Value > 6 Then
    ActiveSheet.Shapes("ab").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour27").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour67").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour107").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour27").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour27").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour27").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour27").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R33").Value < 6 Then
    ActiveSheet.Shapes("ac").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour28").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour68").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour108").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour28").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour28").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour28").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour28").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R33").Value = 6 Then
    ActiveSheet.Shapes("ac").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour28").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour68").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour108").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour28").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour28").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour28").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour28").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R33").Value > 6 Then
    ActiveSheet.Shapes("ac").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour28").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour68").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour108").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour28").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour28").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour28").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour28").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R34").Value < 6 Then
    ActiveSheet.Shapes("ad").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour29").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour69").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour109").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour29").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour29").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour29").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour29").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R34").Value = 6 Then
    ActiveSheet.Shapes("ad").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour29").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour69").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour109").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour29").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour29").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour29").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour29").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R34").Value > 6 Then
    ActiveSheet.Shapes("ad").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour29").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour69").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour109").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour29").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour29").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour29").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour29").Fill.ForeColor.SchemeColor = 0
    End If
     Sheets("Feuil1").Select
    If Range("R35").Value < 6 Then
    ActiveSheet.Shapes("ae").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour30").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour70").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour110").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour30").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour30").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour30").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour30").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R35").Value = 6 Then
    ActiveSheet.Shapes("ae").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour30").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour70").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour110").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour30").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour30").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour30").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour30").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R35").Value > 6 Then
    ActiveSheet.Shapes("ae").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour30").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour70").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour110").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour30").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour30").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour30").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour30").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R36").Value < 6 Then
    ActiveSheet.Shapes("af").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour31").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour71").Fill.ForeColor.SchemeColor = 1
    ActiveSheet.Shapes("jour111").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour31").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour31").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour31").Fill.ForeColor.SchemeColor = 1
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour31").Fill.ForeColor.SchemeColor = 1
    End If
    Sheets("Feuil1").Select
    If Range("R36").Value = 6 Then
    ActiveSheet.Shapes("af").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour31").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour71").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour111").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour31").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour31").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour31").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour31").Fill.ForeColor.SchemeColor = 0
    End If
    Sheets("Feuil1").Select
    If Range("R36").Value > 6 Then
    ActiveSheet.Shapes("af").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil2").Select
    ActiveSheet.Shapes("jour31").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour71").Fill.ForeColor.SchemeColor = 0
    ActiveSheet.Shapes("jour111").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil4").Select
    ActiveSheet.Shapes("jour31").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil7").Select
    ActiveSheet.Shapes("jour31").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil9").Select
    ActiveSheet.Shapes("jour31").Fill.ForeColor.SchemeColor = 0
    Sheets("Feuil11").Select
    ActiveSheet.Shapes("jour31").Fill.ForeColor.SchemeColor = 0
    End If
End Sub
