Sub Macro2()
'
' Macro2 Macro
'
'
Range("AA1").FormulaR1C1 = "=NBCellsPoliceCouleur(R[42]C:R[1999]C,44)"
Range("AA2").FormulaR1C1 = "=NBCellsPoliceCouleur(R[41]C:R[1998]C,46)"
Range("AA3").FormulaR1C1 = "=NBCellsPoliceCouleur(R[40]C:R[1997]C,7)"
Range("AA4").FormulaR1C1 = "=NBCellsPoliceCouleur(R[39]C:R[1996]C,1)"
Range("AA5").FormulaR1C1 = "=NBCellsPoliceCouleur(R[39]C:R[1996]C,8)"
Range("AA6").FormulaR1C1 = "=NBCellsPoliceCouleur(R[39]C:R[1996]C,35)"
Range("AA7").FormulaR1C1 = "=NBCellsPoliceCouleur(R[39]C:R[1996]C,4)"
Range("AA8").FormulaR1C1 = "=NBCellsPoliceCouleur(R[39]C:R[1996]C,41)"
Range("AA9").FormulaR1C1 = "=NBCellsPoliceCouleur(R[39]C:R[1996]C,39)"
Range("AA10").FormulaR1C1 = "=NBCellsPoliceCouleur(R[39]C:R[1996]C,6)"
Range("AA11").FormulaR1C1 = "=NBCellsPoliceCouleur(R[39]C:R[1996]C,50)"
Range("AA12").FormulaR1C1 = "=NBCellsPoliceCouleur(R[39]C:R[1996]C,19)"
Range("AA13").FormulaR1C1 = "=NBCellsPoliceCouleur(R[39]C:R[1996]C,53)"
Range("AA14").FormulaR1C1 = "=NBCellsPoliceCouleur(R[39]C:R[1996]C,31)"
Range("AA32").FormulaR1C1 = "=NBCellsPoliceCouleur(R[39]C:R[1996]C,55)"
Range("AA33").FormulaR1C1 = "=NBCellsPoliceCouleur(R[39]C:R[1996]C,47)"
Range("AA34").FormulaR1C1 = "=NBCellsPoliceCouleur(R[39]C:R[1996]C,43)"
Range("AA35").FormulaR1C1 = "=NBCellsPoliceCouleur(R[39]C:R[1996]C,13)"
Range("AA1:AA35").Select
Selection.AutoFill Destination:=Range("AA1:AR35"), Type:=xlFillDefault
Range("F1").Select
End Sub