Encore une erreur 1004 au niveau range

Bonjour le forum, je dois créer un code via VBA sur excel qui doit pouvoir sélectionner une zone de plage changeante. Je me suis baladé de forum en forum pour créer quelque chose mais lorsque je veux le déclencher il me met erreur 1004 la méthode range de l'objet global a échoué. Voici le code en question:

Sheets("Feuil4").Select
Range("I4").Select
ActiveCell.FormulaR1C1 = "=SUMPRODUCT((R[-3]C[-8]:R[246]C[-8]<>"""")*1)"
Dim Ligne As Long

Range("Feuil4!I4").Value = Ligne

Range("Feuil4!A1:A" & Ligne).Select

Le problème survient au niveau de la dernière ligne.
Pour vous expliquer rapidement sur la cellule I4 je demande à la macro de me donner le nombre de ligne non vide en quelque sorte et ensuite, elle doit sélectionner les lignes à partir de la cellule A1 jusqu'à la cellule A + le résultat trouvé dans la cellule I4. Et c'est là que ça coince. Je sais qu'il y a déjà eu beaucoup de post sur le sujet et j'ai essayé certaines solutions sans succès.

Je sais pas si j'ai été très clair.
Merci d'avance