Insérer plusieurs lignes

[Sebb]

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

 

[omicron]

Bonsoir Sebb,

Tu y étais presque.

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

Bon courage pour la suite.

Omicron

 

[Sebb]

Bonjour Omicron !

Ahhhhh ! C'était donc ça !!!

Merci beaucoup !