Dim tabl_TRI_cherche() As Double
ReDim tabl_TRI_cherche(nbr_Simulations) As Double
For i = 1 To nbr_Simulations
tabl_TRI_cherche(i) = Dichotomie(tabl_CA(i), tabl_Infl_tarif(i), Années, tabl_Charges(i), tabl_Infl(i), tabl_Invest(i))Next i
Dim Moyenne_TRI As Double, Ecart_type_nouveau As Double
[COLOR="Red"]Moyenne_TRI = Application.WorksheetFunction.Average(tabl_TRI_cherche)[/COLOR]
Ecart_type_nouveau = Application.WorksheetFunction.StDevP(tabl_TRI_cherche)
Dim chance As Double
[COLOR="Yellow"]chance = Application.WorksheetFunction.Frequency(tabl_TRI_c herche, (1 - Range("B87").Value[/COLOR])