Private Sub CommandButton1_Click()
Dim maplage As Long
Dim nombredelignes As Long
maplage = [COUNTA(A1:A10)+1]
nombredelignes = maplage - 1
Range("A" & maplage).Select
While nombredelignes > 0
Selection.Insert Shift:=xlDown
nombredelignes = nombredelignes - 1
Wend
End Sub