Copie + Insert x fois

[Beamish]

Bonjour a tous,

je cherche une macro pour copier 15 fois des enregistrements

ex : si j'ai 100 lignes --> chaque ligne est copiée 15 fois ==> 1500 lignes


merci d'avance...

 

[Bobstriker]

Bjr Beamish, bjr au Forum,

voilà ce que j'ai trouvé pour ta question , à adapter évidemment :
La plage dite 'plageàcop' est à nommer pour le départ de la zone à copier,mais tu la nommes comme tu veux.

Sub multicop()

Dim i
i = 0

While i < 15

Range('plageàcop').Select
Selection.Copy
Range('a1:A65536').End(xlDown).Select
ActiveSheet.Paste
i = i + 1

Wend


End Sub

Bonsoir à tous