Etendre une formule sur toute une colonne

Bonjour,

je suis debutant sur VBA et je n ai pas encore vraiment la bonne logique.
je pense avoir deux problemes:
utiliser une formule qui repondra a mon probleme
etendre cette formule sur toute une colonne.

pour l instant j ai une colonne avec des references et je dois affecter chaque reference a une target.
jusqu a present j utilisais des filtres et inscrivais ma target a cote de chaque reference.
j aimerai rendre cela automatique et sans utiliser de filtre.
Alors j ai imaginer une formule qui fonctionne mais qui ne peut pas etre utilser en macro.


=IF(R2="50060494",IF(L2>0.4, "Off Target", IF(L2<0.4, "On Target")),IF(R2="50060497",IF(L2>0.2, "Off Target", IF(L2<0.2, "On Target")),IF(R2="50065065",IF(L2>0.5, "Off Target", IF(L2<0.5, "On Target")),IF(R2="50060525",IF(L2>1, "Off Target", IF(L2<1, "On Target")),IF(K2>1, "Off Target", IF(K2<1, "On Target"))))))

sur la colonne R:la reference
et sur la colonne selectionne j aimerai avoir la target.
jai essaye de faire une macro avec cette formule mais sans reussite...



Sub Macro6()
'
' Macro6 Macro
'

'
ActiveCell.FormulaR1C1 = _
"=IF(RC[-6]=""50060494"",IF(RC[-12]>0.4, ""Off Target"", IF(RC[-12]<0.4, ""On Target"")),IF(RC[-6]=""50060497"",IF(RC[-12]>0.2, ""Off Target"", IF(RC[-12]<0.2, ""On Target"")),IF(RC[-6]=""50065065"",IF(RC[-12]>0.5, ""Off Target"", IF(RC[-12]<0.5, ""On Target"")),IF(RC[-6]=""50060525"",IF(RC[-12]>1, ""Off Target"", IF(RC[-12]<1, ""On Target"")),IF(RC[-13]>1, ""Off Tar" & _
"F(RC[-13]<1, ""On Target""))))))"
Range("X2").Select
Selection.AutoFill Destination:=Range("X2:X23939")
Range("X2:X23939").Select
End Sub


j ai ce message d erreur:

Run-time error'1004': Application-defined or object-dedined error