Function EcarTyp(r As Range, ColStep%)
Dim a, ub%, i&, j%, x As Variant
a = r 'matrice, plus rapide
If Not IsArray(a) Then a = r.Resize(2) 'au moins 2 éléments
ub = UBound(a, 2)
For i = 1 To UBound(a)
For j = 1 To ub
x = a(i, j)
a(i, j) = ""
If (j - 1) Mod ColStep = 0 Then If IsNumeric(CStr(x)) Then If x > 0 Then a(i, j) = x
Next j, i
EcarTyp = Application.StDev(a)
End Function