Sub Macro1()
'
' Macro1 Macro
' Calcul avancement
'
'
Range("V4").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("V6").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R[11]C[-19]:R[994]C[-19])"
Range("V7").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R[10]C[-4]:R[993]C[-4])"
Range("V8").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[9]C[-9]:R[992]C[-9])"
Range("V9").Select
End Sub