Sub Macro1()
Range("A1").Select
Range("A1").NumberFormat = "0.00%"
Range("B1").FormulaR1C1 = "31"
Range("C1").FormulaR1C1 = "20"
va = (Range("B1").FormulaR1C1 - Range("C1").FormulaR1C1) / Range("B1").FormulaR1C1
vaNorm = NormalizeVal(va)
Range("A1").Value = vaNorm
vabiz = vaNorm + 0.1
End Sub
' Resultat des courses :
' "va" vaut 0,354838709677419
' "vaNorm" vaut 0,4548
' "vaBiz" vaut 0,45479998588562
Private Function NormalizeVal(ByVal v As Single) As Single
Dim lg As Long
lg = CLng(10000 * v)
NormalizeVal = CSng(lg / 10000)
End Function