Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Row
Case 3, 5, 7, 9, 11, 13, 15, 17, 19
Select Case Target.Column
Case 1, 3, 5, 7, 9, 11
jaune = 0: cyan = 0: rose = 0
For col = 1 To 11 Step 2
Select Case Cells(Target.Row, col).Value
Case 5 To 15
cyan = cyan + 1
Case 16 To 30
jaune = jaune + 1
Case Is > 30
rose = rose + 1
End Select
Next
Range("O" & Target.Row).Value = cyan
Range("N" & Target.Row).Value = jaune
Range("P" & Target.Row).Value = rose
End Select
End Select
End Sub