Insérer plusieurs lignes

Bonjour à tous !

Voilà, je dois insérer des lignes dans une feuille. Le nombre de lignes dépend de la valeur contenue dans une case. Comment faire pour ne pas allonger ma macro en passant par une boucle supplémentaire, pour ajouter directement X lignes ?
J'ai essayé de passer par ceci :

Rowaselect = Chr(34) & i & ":" & j & Chr(34)
Rows(Rowaselect).Insert Shift:=xlDown

ceci
Rows(i:j).Insert Shift:=xlDown
avec guillements, sans ... rien ne marche !

Merci d'avance à vous !
a+

Sebb