[VBA] Moyenne, écart types...

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