Vlookup

Bonjour à tous,
je me retrouve actuellement avec un projet nécessitant de faire une macro sous excel. Et c'est un sujet que je ne maitrise absolument pas.
j'ai un fichier avec 3 onglet. Bordereau, données_scannées et Ordi.
Le but est de mettre en A16 sur l'onglet bordereau le résultat du Vlookup qui prend les données de l'onglet Donnees_scannees pour en trouver la correspondance dans l'onglet ordi.
Sur cet onglet ordi j'ai nommé la plage qui m'intéresse Ordi.

Comme vous le verrez dans le code mon développement est vraiment très très basique. Je m'excuse d'avance pour ceux à qui cela va donner mal aux yeux.

Sub Macro1()
'
' Macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+O
Dim NbLig As Integer
Dim LigneHaut As Integer
Dim LigneBas As Integer

NbLig = 0

'compte le nombre de ligne
Worksheets("Donnees_scannees").Activate
NbLig = Range("A65536").End(xlUp).Row

'Boucle pour faire le cadre
'active la feuille bordereau
Worksheets("Bordereau").Activate

LigneHaut = 15
LigneBas = 18
For i = 1 To NbLig - 1

Sheets("bordereau").Cells(D, i).Formula = "=VLookup(A" & i & ",range (ordi), 2, False)"
LigneHaut = LigneHaut + 7
LigneBas = LigneBas + 7
Next i

End Sub

Et comme de bien entendu je me trouve avec un message d'erreur que je sors pas d'ou il sort ni ce qu'il signifie.

Merci à celles et ceux qui voudront bien se pencher sur ma question.