PST

Sub InsertRows()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
numRows = 10
For r = r To 1 Step -1
ActiveSheet.Rows(r + 1).Resize(numRows).Insert
Next r
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Tue, 08 May 2007 07:21:50 +0200, PST wrote:

hello

NBligne=10

How inserer a certain number of blank rows, under all the nonempty lines
of column A

Row 1
add 10 lines
Row 2
add 10 lines

etc...

thank you

hello

NBligne=10

How inserer a certain number of blank rows, under all the nonempty lines
of column A

Row 1
add 10 lines
Row 2
add 10 lines

etc...

thank you

thank you very much

it is right what I wanted

Gord Dibben a écrit :
PST

Sub InsertRows()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
numRows = 10
For r = r To 1 Step -1
ActiveSheet.Rows(r + 1).Resize(numRows).Insert
Next r
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Tue, 08 May 2007 07:21:50 +0200, PST wrote:

hello

NBligne=10

How inserer a certain number of blank rows, under all the nonempty lines
of column A

Row 1
add 10 lines
Row 2
add 10 lines

etc...

thank you