'CALCULS SUR LA SERIE DE DONNEES
Dim ligfin
ligfin = [A65536].End(xlUp).Row
j = 0
For i = 4 To ligfin
Cells(i, col).Activate
If ActiveCell.EntireRow.Hidden = False Then
j = j + 1
ReDim valeurs(1 To j)
valeurs(j) = CDbl(Cells(i, col).Value)
End If
Next
moyenne = WorksheetFunction.Average(valeurs)
ecartype = WorksheetFunction.StDev(valeurs)