Existe une manière sous vba pour insérer plusieurs lignes à la fois.
Exemple: X ma variable range("D1") = 7
Je souhaite donc que 7 lignes soient automatiquement insérer en dessous.
Je reste à votre disposition pour plus de renseignements
Mais jme rends compte que ma question était mal posée.
Je joins un fichier exemple.
Le but multiplier les lignes en fonction du nombre indiqué dans la colonne B.
Sub Go()
Dim X As Range
Set X = Range("B65536").End(xlUp)
Do
X(2, 1).Resize(X - 1).EntireRow.Insert
X.Offset(0, -1).Resize(, 2).Copy Destination:=X.Offset(1, -1).Resize(X, 2)
If X.Row = 1 Then Exit Do
Set X = X(0, 1)
Loop
End Sub