Sub InsertMultipleRows() Dim i As Integer Dim j As Integer ActiveCell.EntireRow.Select On Error GoTo Last i = InputBox ( "Enter number of columns to insert”, "Insert Columns") For j = 1 To i Selection.Insert Shift:=xlToDown, CopyOrigin:=xlFormatFromRightorAbove Next j Last: Exit Sub End Sub
Avec ce code, vous pouvez entrer plusieurs lignes dans le
feuille de travail. Lorsque vous exécutez ce code, vous pouvez entrer le
nombre de lignes à insérer et assurez-vous de sélectionner la cellule
d’où vous voulez insérer les nouvelles lignes. Si tu veux
pour ajouter des lignes avant la cellule sélectionnée, remplacez le
xlToDown à xlToUp dans le code.