Sub CalculRimp()
 
'création de mes 2 tableaux
Dim max As Double
Dim tabt(10000), tabq(10000) As Double
Dim w As Integer
max = Workbooks("Outil.xls" ).Sheets("1" ).Cells(12, 8).Value
    For w = 9 To max
        tabt(w) = Workbooks("Outilxls" ).Sheets("1" ).Cells(w, 3)
        tabq(w) = Workbooks("Outil.xls" ).Sheets("1" ).Cells(w, 4)
    Next w
 
dim n, i as Integer
n=1000
       for i=1 to n
       c_courant = concentration(tabt(), tabq())
       next i
End Sub
 
Public Function concentration(ByRef tab1() As Double, ByRef tab2() As Double) As Double
max = Workbooks("Outil.xls" ).Sheets("1" ).Cells(12, 8).Value
dim Cq as double
dim tot as double
tot=0
dim q as integer
        for q=1 to max
       Cq=tab1(q)*tab2(q)
       tot=tot+Cq
       next q
concentration=tot
End Function