Bonjour

Je voudrais dupliquer N lignes en dessous d'une ligne
1) se positionner sur une ligne x ( là : je lis une valeur N )
2 ) Inserer N lignes juste en dessous de la ligne x
3 ) Copier toute la ligne x
4 ) coller toute la ligne X sur les N lignes suivantes

J'ai essayé mais j'ai des problemes au niveau de coller
mon code le voici :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub dupliquerlignes2()
'
' dupliquerlignes1 Macro
' Macro enregistrée le 05/10/2007 par toto
'
Dim x As Integer
Dim lignes As Integer
Dim debut As Integer
debut = ActiveCell.EntireRow.Select
lignes = InputBox("Nombre de lignes à dupliquer ?")
MsgBox "Vous avez tapé : " & lignes
ActiveCell.Offset(1, 0).Select
For debut = 1 To lignes
       Selection.Insert Shift:=xlDown
       Activesheet.Paste
Next debut
End Sub