Private Function Difference(ByRef vect() As Double) As Double Dim accimpair As Double Dim accpair As Double accimpair = 0 accpair = 0 For Each number As Double In vect If number Mod 2 = 0 Then accpair += number Else accimpair += number End If Next Return accimpair - accpair End Function
à la fin
dim accimpair as double dim accpair as double accimpair = 0 accpair = 0 for each number as long in vector if number mod 2 = 0 then accpair+= number else accimpair+= number end if next