Besoin d'un oeil neuf pour voir mon code

Bonjour tout le monde,
j'ai un petit souci dans mon code que me met si dessous. J'aimerai que vous m'expliquier sont fonctionnement. J'ai tout simplement copier se code d'une autre de mes fichiers excel et lui fonctionne à merveille, je pensais l'avoir compris mais faut croire que non.

etat = 5
introw = 1

While ActiveSheet.Cells(introw, 4) <> ""

If ActiveSheet.Cells(introw, 10).Value = "" Then
'ActiveSheet.Cells().Value = "=RECHERCHEV(Import!D2;NouvelleImport!D:D;1;FAUX)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(Import!RC[-6],NouvelleImport!C[-6],1,FALSE)"
If ActiveSheet.cell(introw, 10).Value <> "" Then
ActiveSheet.cell(introw, 7).Value = etat
End If
End If

introw = introw + 1
Wend

PS: la colonne J contient une code de se genre "44109P0081"
Merci d'avance.