Problème de macro excel

Bonjour,

j'ai créé la macro suivante qui me permet de recopier la formule de la celulle C2 jusqu'à la derniere celulle vide de la colonne D quel que soit le nombre celulles remplies dans la colonne D. Elle fonctionne à un détail près : la recopie de la cellule C2 se fait jusqu'a la derniere ligne (65536) et non pas jusqu'à la derniere cellule non vide de la colonne D (ici la ligne 34).
quand je pointe le curseur sur la valeur de i, j'ai "Feuil1.Range("D1").End(xlDown).Row=65536" au lieu de 34

Dim i As Integer
i = Feuil1.Range("D1").End(xlDown).Row
Range("C2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C" & i), Type:=xlFillDefault
Range("C2:C15").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "=R1C1"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B" & i), Type:=xlFillDefault
Range("B2:B101").Select
Range("A2").Select
End Sub

je n'arrive pas à trouver l'erreur
Merci de votre aide