Moyenne En VB

Sub pfff()
Dim mesvaleurs() As Double
Dim i As Integer
Dim j As Integer
Dim moyenne As Double
ReDim mesvaleurs(4 - 1)


For i = 1 To 4
    mesvaleurs(j) = Cells(i, 3).Value
    'MsgBox Cells(i, 3).Value
    j = j + 1
Next i
MsgBox UBound(mesvaleurs)
moyenne = 0
Dim o
Dim valeur As Double

For o = LBound(mesvaleurs) To UBound(mesvaleurs)
valeur = mesvaleurs(o)
    moyenne = moyenne + valeur
MsgBox moyenne
Next o

Dim resultat As Double
MsgBox moyenne
resultat = moyenne / UBound(mesvaleurs) + 1
MsgBox resultat

End Sub