Sub repartition()
nblig = ActiveSheet.UsedRange.Rows.Count
t20 = Int(0.2 * nblig)
t40 = Int(0.4 * nblig)
t60 = Int(0.6 * nblig)
t80 = Int(0.8 * nblig)
taille20 = Range('B' & t20).Value
taille40 = Range('B' & t40).Value
taille60 = Range('B' & t60).Value
taille80 = Range('B' & t80).Value
Range('d1').Value = '20 % font moins de : ' & taille20 & ' octets'
Range('d2').Value = '40 % font moins de : ' & taille40 & ' octets'
Range('d3').Value = '60 % font moins de : ' & taille60 & ' octets'
Range('d4').Value = '80 % font moins de : ' & taille80 & ' octets'
End Sub