Bonjour tout le monde!
J'aimerais faire un programme VBA qui avec le test du khi deux et avec la loi de poisson me permettra d'obtenir une règle de décision concernant la validité d'une hypothèse. Je m'explique.

Par exemple:
Les fruits d'un verger ont subi une attaque d'insectes. Une étude réaliser sur 400 fruits donne ce tableau:
Nb d'insecte/fruit: 0 1 2 3 4 5 6 7 8ou+
Nb de fruit: 85 138 104 49 15 8 0 1 0

H0 : On test avec un seuil de 5% l'hypothèse selon laquelle le nombre d'insecte présent dans un fruit suit une loi de poisson

on calcule la moyenne : 0*85+1*138...../400 = 1,5

1) P(X=k)=(e-λ*λ^k)/(k!) => λ=E[x]=1,5
P1=P(X=0)=(e^-1,5*1,5^0)/(0!)=0,22
P2=P(X=1)=(e^-1,5*1,5^1)/(1!)=0,33
P3=P(X=2)=0,25
P4=P(X=3)=0,13
P5=P(X=4)=0,047
P6=P(X=5)=0,014
P7=P(X=6)=0,0035
P8=P(X=7)=0
P9=P(X=>8)=0

2) X2obs = ∑_(j=1)^k ((nj-Npj)/(Npj))^2
X2obs= ((85-0,22*400)/(0,22*400))^2+((138-0,33*400)/(0,33*400))^2.... X2obs= 3,825

3) degré de liberté
d=k-1=9-1=8

4) utilisation de la table
seuil=0,05
d=8
donc X2T= 15,507

5) X2obs < X2t donc HO est validé


J'ai commencé VBA tous récemment donc on peut dire que je suis novice, mais j'espère m’améliorer grâce a vous !!!
J'èspre que je suis assez claire lol (c'est mon premier poste soyez indulgent )