Sub b()
Dim ListInfo(4) As Integer
ListInfo(0) = 1
ListInfo(1) = 2
ListInfo(2) = 3
ListInfo(3) = 4
ListInfo(4) = 5
MsgBox calcul(ListInfo, 3)
End Sub
Function calcul(ByRef ListInfo, ByVal x%) As Double
calcul = ListInfo(x) * ListInfo(UBound(ListInfo)) / ListInfo(2)
End Function