Macro pour copier ligne à la suite d'un tableau

Bonjour,

je souhaiterais mettre en place une macro qui copie plusieurs lignes et les insèrent à la suite du tableau.

J'arrive à créer la macro mais forcément ça m'insère les lignes toujours au même endroit. Ca ne suit pas l'évolution du tableau en fait.

Merci

Jérome

Voici le code actuel :

Sub Duplication()

'

' Duplication Macro

'

'

Range("A2:V5").Select

Selection.Copy

ActiveWindow.ScrollRow = 3

ActiveWindow.ScrollRow = 4

ActiveWindow.ScrollRow = 5

ActiveWindow.ScrollRow = 6

ActiveWindow.ScrollRow = 8

ActiveWindow.ScrollRow = 9

ActiveWindow.ScrollRow = 11

ActiveWindow.ScrollRow = 13

ActiveWindow.ScrollRow = 14

Range("A34").Select

ActiveSheet.Paste

End Sub

Bonjour

Le Bouton "Dupliquer" en A1 Copie les lignes voulues en fin de tableau.

Cette copie ne peut se faire qu'une seule fois avec des lignes vides en fin de tableau.

Donc, tu dois:

1) Dupliquer

2) Remplir la fin du tableau

3) Dupliquer à nouveau

et ainsi de suite.

Code dans Module1

Sub Duplication()
Dim DerLign As Byte
   DerLign = Range("A500").End(xlUp).Row
Range("A2:V5").Select
    Selection.Copy
    Range("A" & DerLign + 2).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("B3").Select
End Sub

Cordialement

Bonjour et bienvenue sur le forum

Bonjour à tous

Une variante.

Bye !

SUPER !!! merci GMB.

Amadeus, merci pour ton aide mais ton c'était le même problème que moi sur ton tableau. ( ou peut être me suis je mal exprimé )

Jérome

GMB, dernière question :

je souhaiterais que la sélection que je copie en fin de tableau ai 3 lignes... ( 2 actuellement )

j' ai inséré une ligne mais ça ma shooté toute la macro ^^

dur dur pour moi lol

Jérome

Nouvelle version.

Bye !

merci top !!!

GMB, tu pourras si tu as le temps m'expliquer la macro ???

Te remerciant.

Jérome

Bonjour

Le même avec macro commentée.

Bye !