Microsoft 365 comment faire une moyenne de valeurs contenu dans un tableau variant

Sub CalculMoyenne()
    Dim tab_calcul(3, 16), i%, o%, Moyenne
' Juste pour le test, remplit le tableau avec des valeurs aléatoires
    For i = 0 To 3
        tab_calcul(i, 16) = Int(1000 * Rnd)
    Next i

'----------------------------------------------
' Calcul moyenne
    For o = 0 To UBound(tab_calcul)
        Moyenne = Moyenne + tab_calcul(o, 16)
    Next o
    Moyenne = Moyenne / (1 + UBound(tab_calcul))
'----------------------------------------------

End Sub

Sub Test()
Dim o, IndA, tab_calcul(), SMA5

o = 1
IndA = 4
ReDim tab_calcul(o + IndA, 16)

tab_calcul(o, 16) = 100
tab_calcul(o + IndA, 16) = 200

SMA5 = Application.WorksheetFunction.Average(tab_calcul(o, 16), tab_calcul(o + IndA, 16))
MsgBox SMA5

End Sub

Sub Test1()
Dim o, IndA, tab_calcul(), SMA5

o = 1
IndA = 4
ReDim tab_calcul(o + IndA, 16)

tab_calcul(o, 16) = 100: [Z1] = tab_calcul(o, 16)
tab_calcul(o + IndA, 16) = Empty: [Z2] = tab_calcul(o + IndA, 16)
'tab_calcul(o + IndA, 16) = "aaa": [Z2] = tab_calcul(o + IndA, 16)

SMA5 = Application.WorksheetFunction.Average([Z1:Z2])
MsgBox SMA5

End Sub

SMA5 = Application.Average(tab_calcul(o, 16), tab_calcul(o + 1, 16), tab_calcul(o + 2, 16), tab_calcul(o + 3, 16), tab_calcul(o + 4, 16))

Sub Test2()
Dim o&, IndA&, tab_calcul(), i&, aux(), n&, SMA5

o = 1
IndA = 4
ReDim tab_calcul(o + IndA, 16)

tab_calcul(o, 16) = 100
tab_calcul(o + 1, 16) = 200
tab_calcul(o + 2, 16) = 300
tab_calcul(o + 3, 16) = 400
tab_calcul(o + 4, 16) = Empty '"aaa"


For i = LBound(tab_calcul, 1) To UBound(tab_calcul, 1)
    If IsNumeric(tab_calcul(i, 16)) Then
        ReDim Preserve aux(n) 'tableau auxiliaire base 0
        aux(n) = tab_calcul(i, 16)
        n = n + 1
    End If
Next

SMA5 = Application.WorksheetFunction.Average(aux)
MsgBox SMA5

End Sub