Sub RemplirStat()
Dim TabData() As Variant 'on déclare un tablo VBA qui contiendra les datas
Dim TabFournisseur() As Variant 'on déclare un tablo VBA qui contiendra la liste des Fournisseurs
With Sheets("Statistiques") 'dans la feuille Statistiques
nbFournisseurs = .Cells(3, .Columns.Count).End(xlToLeft).Column - 1 'on récupère la dernière colonne sur la ligne 3 = ligne des fournisseurs
.Range("B4").Resize(5, nbFournisseurs).ClearContents 'on efface le tablo
TabFournisseur = .Range("B3").Resize(6, nbFournisseurs).Value 'on set un tablo de 6 lignes (3 à 8) et NbFournisseurs colonnes
End With
For j = LBound(TabFournisseur, 2) To UBound(TabFournisseur, 2) 'sur chaque colonne du tablo = pour chaque fournisseur
'MsgBox TabFournisseur(1, j)
With Sheets("" & TabFournisseur(1, j) & "") 'dans la feuille du fournisseur
'.Activate
Fin = .Range("B" & .Rows.Count).End(xlUp).Row 'on recupère la dernière ligne en colonne B
TabFournisseur(2, j) = WorksheetFunction.Average(.Range("B3:B" & Fin)) 'calcul de la moyenne
TabFournisseur(3, j) = WorksheetFunction.StDev(.Range("B3:B" & Fin)) 'calcul de l'écart type
TabFournisseur(4, j) = WorksheetFunction.Skew(.Range("B3:B" & Fin)) 'calcul du SKEWNESS"
TabFournisseur(5, j) = WorksheetFunction.Kurt(.Range("B3:B" & Fin)) 'calcul du Kurtosis"
TabFournisseur(6, j) = WorksheetFunction.CountA(.Range("B3:B" & Fin)) 'calcul du nombre de valeurs
End With
Next j
With Sheets("Statistiques") 'dans la feuille Statistiques
.Range("B3").Resize(UBound(TabFournisseur, 1), UBound(TabFournisseur, 2)) = TabFournisseur 'on colle les résultats
End With
End Sub