Correction code vba

Bonjour,

j ai ecrit un code qui marche
je vais une recherche sur onglet a vers onglet b sur la premiere colonne ca s il me trouve il me marque ok fonctionne sauf qu il s arrete a 112 lignes ce qui correspond à mon onglet b mais mon onglet a a1500 lignes et je voudrais qu il me fasse la recherche sur toutes ces lignes

code

sheets("GLOBAL").Select
For i = 14 To 20
If Cells(1, i) = Fich Then Exit For
Next
Cells(2, i).Select
ActiveCell.Formula = _
"=IF(ISNA(VLOOKUP(A2," & Fich & "!A:A,1,FALSE)),"""",""OK"")"
Selection.AutoFill Destination:=Range(i & NN)
Selection.AutoFill Destination:=Range(Cells(2, i), Cells(NN, i)) ca bloque ici NN represente le nombre de lignes de onglet b