dll C++ et appel en VBA

double __stdcall AdditionTableau_5(double * table1, double * table2, double * RetourTableau) {
	int i;
	for (i=0;i<5;i++) {
		RetourTableau[i] = table1[i] + table2[i];
	}
	return 1.0;
}

Declare Function AdditionTableau_5 _
Lib "D:\Documents and Settings\stage\Bureau\CPP\Test_DLL7\Debug\Test_DLL7.dll" (ByRef table1() As Double, ByRef table2() As Double, ByRef RetourTableau() As Double) As Double

Sub Fonction_Test3()
    
    
    Dim Retour_F As Double
    Dim table1(1 To 5) As Double
    Dim table2(1 To 5) As Double
    Dim RetourTableau(1 To 5) As Double
    
    table1(1) = 1
    table1(2) = 2
    table1(3) = 3
    table1(4) = 4
    table1(5) = 5
    
    table2(1) = 1
    table2(2) = 2
    table2(3) = 3
    table2(4) = 4
    table2(5) = 5
    
    Retour_F = AdditionTableau_5(table1, table2, RetourTableau)
    MsgBox (Retour_F)
        
End Sub

Retour_F = AdditionTableau_5(table1, table2, RetourTableau)

Retour_F = AdditionTableau_5(table1(1), table2(1), RetourTableau(1))