Sub taille()
For k = 4 To 109 Step 3
c = Cells(k, 8)
deb = 8
For j = 8 To 34
If Cells(k, j) = c Then
n = n + 1
Else
If n < 3 Then Cells(k, deb).Font.Size = 8
If n = 3 Or n = 4 Then Cells(k, deb).Font.Size = 10
If n = 5 Or n = 6 Then Cells(k, deb).Font.Size = 12
If n > 6 Then Cells(k, deb).Font.Size = 14
n = 0: deb = j
c = Cells(k, deb)
End If
Next
Next
End Sub