Sub nombre_et_repartition()
Range("D65").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Conso!C13,""Pas de fiche"")"
Range("D66").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Conso!C13,""500"")"
Range("D67").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Conso!C13,""5000"")"
Range("D68").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Conso!C13,""10000"")"
Range("D69").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Conso!C13,""50000"")"
Range("D70").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
Range("D71").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C[1]:R[-2]C[1])"
Range("E65").Select
ActiveCell.FormulaR1C1 = "=ABS(SUMIF(Conso!C[8],""Pas de fiche"",Conso!C[4]))"
Range("E66").Select
ActiveCell.FormulaR1C1 = "=ABS(SUMIF(Conso!C[8],""500"",Conso!C[4]))"
Range("E67").Select
ActiveCell.FormulaR1C1 = "=ABS(SUMIF(Conso!C[8],""5000"",Conso!C[4]))"
Range("E68").Select
ActiveCell.FormulaR1C1 = "=ABS(SUMIF(Conso!C[8],""10000"",Conso!C[4]))"
Range("E69").Select
ActiveCell.FormulaR1C1 = _
"=ABS(SUMIF(Conso!C[8],""50000"",Conso!C[4]))"
Range("F65").Select
ActiveCell.FormulaR1C1 = "=(RC[-1]/R71C4)*100"
Range("F66").Select
ActiveCell.FormulaR1C1 = "=(RC[-1]/R71C4)*100"
Range("F67").Select
ActiveCell.FormulaR1C1 = "=(RC[-1]/R71C4)*100"
Range("F68").Select
ActiveCell.FormulaR1C1 = "=(RC[-1]/R71C4)*100"
Range("F69").Select
ActiveCell.FormulaR1C1 = "=(RC[-1]/R71C4)*100"
Range("D71").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C[1]:R[-2]C[1])"