Comparaison d'une colonne

bonjour comment écrire ceci en vba

la bd fait 80 000 lignes.

si la valeur de la colonne A supérieur à 1500 alors je copie la formule loc12 en B

résultat final:

..............................colonneA...............colonneB

ligne 1..................1499......................

ligne 2..................1501......................loc12

ligne 3..................1200......................

ligne 4..................1600......................loc12

loc12 = "=VLOOKUP(RC14,loc!R3C2:R8C8,3,TRUE)*RC14"

si A1 >1500 etc.....

Range("B2") = loc12

Range("P2:P" & Range("A" & Rows.Count).End(xlUp).Row).Formula = loc12

Bonsoir,

Sub copy_Formule()
 With Feuil1
    For i = 2 To 80000
        If .Range("A" & i) > 1500 Then
            .Range("B" & i) = "loc12"
        End If
    Next i
 End With
End Sub

Cdt

Henri