Bonjour Clav,
Tu trouveras en pièce jointe, un exemple extrêmement simplifié (1 instruction) permettant de répondre au problème posé.
=====================================================Private Sub CommandButton1_Click()
[A1:E13].Copy Destination:=[A1:E13].Offset(UsedRange.Rows.Count, 0)
End Sub
=====================================================
Il y a juste à remplacer A1:E13 par les coordonnées du tableau à repliquer.
Beaucoup de variantes sont possibles, si la solution s'avère incomplète, merci d'envoyer des spécifications plus détaillées.
@+
Omicron.