yop merci d'avoir proposé un fichier, mais j'ai finalement trouvé
ya rien de plus bête ad et ed 2 variables
sur une boucle à intervalle régulier on vérifie les cases : si plus grand c'est ad
qui est incrémenté sinon c'est ed
moy
étant la variable moyenne
n=0
For j = 0 To Nb - 1
p = j * n
'au dessus en dessous
If .Range("c" & 6 + p).Value >= moy Then
ad = ad + 1
Else
ed = ed + 1
End If
n = 7
Next j
je sais pas pkoi j'y ai pas pensé plus tot.
++
Troph