Copies de formule sur des colonnes aléatoire

Bonjour,

Comme d'habitude je viens vous embeter avec mes questions idiotes.

Problème : je souhaite recopier ma formule dans toutes les lignes de la colonne, mais la colonne peut varié(c'est la première colonne vide).

Pour vous donnez plus d'indication sur les donnez, il s'agit de la démarque et de la surmarque dans mon entrepots.
Or celle-ci ne disparait que lors de l'inventaire annuel donc mes écart de stock reste apparent constamment.
Le but de ce fichier c'est de comparer mes écarts du jours avec ceux de la veuille pour toute mes références ca me permet de déterminer les nouveaux écart à justifié.
donc ca me donnerais à la fin un fichier du style
A2=référence
B2=écart j
C2=écart J+1
D2=écart J+2
IV2=écart j+256



Voici le code :

Sheets("données brutes").Select

'supprime les colonnes inutiles
Columns("E:K").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("analyse").Select

'Se place sur la première colonne vide
Range("A1").End(xlToRight).Offset(0, 1).Select

'inscrit la date du jours
ActiveCell.FormulaR1C1 = "=now()"

'se place sur la ligne du dessous
ActiveCell.Offset(1, 0).Select


'recherche vertical
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],'données brutes'!R2C1:R4143C4,4,0)"

'copies la formules sur les autres lignes de la colonne
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D2875")
Range("D2:D2875").Select


Cordialement

Mickael