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