find dans un tableau()

Dim WS1, WS2 As Worksheet
Dim lastrow, lastrow2, Source_inv, Source_decomposition, maxinv, maxdecomp, i, L, k, m, x As Long
Set WS1 = ThisWorkbook.Sheets("inv")
Set WS2 = ThisWorkbook.Sheets("decomposition")
maxinv = WS1.Range("A65536").End(xlUp).Row
maxdecomp = WS2.Range("A65536").End(xlUp).Row
Source_inv = WS1.Range(WS1.Range("A1"), WS1.Range("c" & maxinv)).Value
Source_decomposition = WS2.Range(WS2.Range("A1"), WS2.Range("U" & maxdecomp)).Value

Dim tablo(25000, 18) As String
Application.Screenupdating=false
Application.Calculation = xlCalculationManual

For i = 1 To maxdecomp

    For k = 1 To maxinv
        If Source_decomposition(i, 1) = Source_inv(k, 1) Then
            tablo(i, 2) = Source_inv(k, 2)
            tablo(i, 1) = Source_inv(k, 3)
        End If
    Next k

Application.Calculation = xlAutomatic
Application.Screenupdating=true

tablo(i, 2) = Application.Match(Source_decomposition(i, 1), Application.Index(Source_inv, , 1), 0)

Sub cout_dispo()
Application.ScreenUpdating = False
Dim WS1, WS2 As Worksheet
Dim lastrow, lastrow2, Source_inv, Source_decomposition, maxinv, maxdecomp, mondico, i, L, k, m, x, clé, val1, val2, ligne As Long
Set WS1 = ThisWorkbook.Sheets("inv")
Set WS2 = ThisWorkbook.Sheets("decomposition")
maxinv = WS1.Range("A65536").End(xlUp).Row
maxdecomp = WS2.Range("A65536").End(xlUp).Row
Set mondico = CreateObject("scripting.dictionary")
Source_inv = WS1.Range(WS1.Range("A1"), WS1.Range("c" & maxinv)).Value
Source_decomposition = WS2.Range(WS2.Range("A1"), WS2.Range("U" & maxdecomp)).Value
Dim tablo(25000, 18) As Long
For i = 1 To maxdecomp
    For k = 1 To maxinv - 1
        mondico(Source_inv(k, 1)) = k
    Next k
  clé = Source_decomposition(i, 1)
  ligne = mondico(clé)
  tablo(i, 7) = Source_inv(k, 1)(ligne, 2)
  tablo(i, 8) = Source_inv(k, 1)(ligne, 3)
Next i