Sub rets()
Dim j As Byte, x As Byte, v As Byte
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer, g As Integer, h As Integer, r As Integer
Dim o, p As Integer
Dim rng As Range
tabonglet = Array("F", "M")
For j = 0 To UBound(tabonglet)
onglet = tabonglet(j)
a = 0
b = 0
c = 0
d = 0
e = 0
f = 0
g = 0
h = 0
r = 0
o = 0
p = 0
With Worksheets("feuil1")
.Range("k7").Activate
.Range("k7").End(xlDown).Select
Set rng = ActiveCell
For n = 7 To 33 'rng.Row
If .Range("k" & n) = "F" And .Range("m" & n) < 17 Then .Range("k" & n).Interior.ColorIndex = [L2].Interior.ColorIndex
If .Range("k" & n) = "F" And .Range("m" & n) > 17 Then .Range("k" & n).Interior.ColorIndex = [N2].Interior.ColorIndex
If .Range("k" & n) = "M" And .Range("m" & n) < 17 Then .Range("k" & n).Interior.ColorIndex = [L3].Interior.ColorIndex
If .Range("k" & n) = "M" And .Range("m" & n) > 17 Then .Range("k" & n).Interior.ColorIndex = [N3].Interior.ColorIndex
If .Range("o" & n) = "F" And .Range("q" & n) < 17 Then .Range("o" & n).Interior.ColorIndex = [L2].Interior.ColorIndex
If .Range("o" & n) = "F" And .Range("q" & n) > 17 Then .Range("o" & n).Interior.ColorIndex = [N2].Interior.ColorIndex
If .Range("o" & n) = "M" And .Range("q" & n) < 17 Then .Range("o" & n).Interior.ColorIndex = [L3].Interior.ColorIndex
If .Range("o" & n) = "M" And .Range("q" & n) > 17 Then .Range("o" & n).Interior.ColorIndex = [N3].Interior.ColorIndex
If .Range("s" & n) = "F" And .Range("u" & n) < 17 Then .Range("s" & n).Interior.ColorIndex = [L2].Interior.ColorIndex
If .Range("s" & n) = "F" And .Range("u" & n) > 17 Then .Range("s" & n).Interior.ColorIndex = [N2].Interior.ColorIndex
If .Range("s" & n) = "M" And .Range("u" & n) < 17 Then .Range("s" & n).Interior.ColorIndex = [L3].Interior.ColorIndex
If .Range("s" & n) = "M" And .Range("u" & n) > 17 Then .Range("s" & n).Interior.ColorIndex = [N3].Interior.ColorIndex
Next n
End With
Next j
Set plage = Range("k7:U33") 'Application.Union(Range("k7:U33"), Range("V7:V33"))
Dim cellule As Range
For Each cellule In plage
If cellule.Interior.ColorIndex = [L2].Interior.ColorIndex Then a = a + 1
If cellule.Interior.ColorIndex = [L3].Interior.ColorIndex Then b = b + 1
If cellule.Interior.ColorIndex = [N2].Interior.ColorIndex Then c = c + 1
If cellule.Interior.ColorIndex = [N2].Interior.ColorIndex Then d = d + 1
Next
[L2] = a
[L3] = b
[N2] = c
[N3] = d
End Sub