Tableau (Array) à une dimension KO

Bonjour,

Je souhaite passer par un tableau pour alimenter des colonnes pour gagner plus de temps que le traitement cellule par cellule.

l'alimentation de chaque cellule se faisant à partir d'un recherche V, j'ai écris le code suivant mais les résultats ne sont pas concluants (il commence la recherche V de la première ligne par la valeur cherchée de la dernière ligne). Auriez vous une idée pourquoi? Merci d'avance.
-------------------------------------
Sub CategorieTechnologiqueH()
Dim tabCT As Variant
Dim LaPlage As Range
Dim i As Long

NbreLignes = Range("A65536").End(xlUp).Row

ReDim tabCT(2 To NbreLignes)

For i = 2 To NbreLignes
tabCT = "=VLOOKUP(E" & i & ",'[" & IM015Historique & "]Données brutes'!E:AS,41,FALSE)"
Next i

Set LaPlage = Range(Cells(2, 40), Cells(NbreLignes, 40))
LaPlage.Value = tabCT
End Sub