Function MaFonction(ParamArray LesNombres() As Variant) As Variant()
Dim T(), N&, P&
ReDim T(1 To 2 ^ (UBound(LesNombres) + 1) - 1)
For N = 1 To UBound(T)
For P = 0 To UBound(LesNombres)
If 2 ^ P And N Then T(N) = T(N) + LesNombres(P)
Next P, N
MaFonction = T
End Function