Function DistrQsN(ByVal Rnd0à1 As Double, ByVal Moyenne As Double, ByVal ÉcartType As Double) As Double
Rem. Distribution quasi normale à part que le nombre engendré ne fuira la moyenne de plus de 4 fois l'écart type
DistrQsN = (Rnd0à1 ^ 0.18148 - (1 - Rnd0à1) ^ 0.18148) * 4 * ÉcartType + Moyenne
End Function
Function DistrQsNMnMx(ByVal Rnd0à1 As Double, ByVal Mini As Double, ByVal Maxi As Double) As Double
DistrQsNMnMx = DistrQsN(Rnd0à1, (Mini + Maxi) / 2, (Maxi - Mini) / 8)
End Function