While ActiveCell.Value <> ""
cote_actuelle = ActiveCell.Value
position = position + 1
ActiveCell.Offset(1, 0).Select
While ActiveCell.Value = cote_actuelle
ActiveCell.Offset(0, -1).Select 'je sélectionne le nombre dans la rangée juste avant
position = position + ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(1, 0).Select
i = i + 1
Wend
Tabl_class(class_number) = position / i
class_number = class_number + 1
i = 1
position = 0
Wend