Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 19/11/2009 par MJ
'
'
ActiveCell.FormulaR1C1 = _
"=IF(R[13]C[3]<20,IF(R[13]C[3]<10,R[13]C[3],CEILING(R[13]C[3],5)),CEILING(R[13]C[3],10))"
Range("A2").Select
ActiveCell.FormulaR1C1 = "=FLOOR(R[21]C[3],10)"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=INT(LOG(R[20]C[3]))"
Range("A4").Select
ActiveCell.FormulaR1C1 = "=ROUND(R[19]C[3]/10^R[21]C[3]/10,0)"
Range("A5").Select
ActiveCell.FormulaR1C1 = "=COS(RADIANS(R[4]C[6]-R[12]C[6]))"
Range("A6").Select
End Sub