Macro bouton copier/coller

Bonjour,

Je dois, pour mon travail, créer un modèle intuitif et facile à utiliser pour utiliser la Data de mon entreprise.

Mes bases excel etant relative, je suis déjà bloqué sur ma première macro.

Je voudrai créer un bouton permettant de copier-coller un tableau toutes les 200 lignes.

Pour être plus précis, à chaque clique, ce même tableau se copierai/collerai juste en dessous du précedant tableau (c'est à dire toutes les 200 lignes).

Ma macro ressemble à ça pour le moment :

' Copylist Macro

Range("A1:D200").Select

Selection.Copy

Range("A201").Select

ActiveSheet.Paste

J'ai tenté quelques modifications sans succès,

Lorsque je clique sur mon bouton, cela me renvoi automatiquement à la ligne 200. Je voudrai également pouvoir copier-coller sans que cela ne me redirige autre part que mon bouton.

Cela me permettrai de cliquer plusieurs fois à la suite sur le bouton sans avoir besoin de remonter tout le document entre chaque clique.

Fichier joint

Merci d'avance pour votre aide!

Bonjour,

Sub CopieTableau()
    Dim i%
    With ActiveSheet
        i = 201
        Do While .Cells(i, 1) <> ""
            i = i + 200
        Loop
        .Range("A1:D200").Copy .Range("A" & i)
    End With
End Sub

Cordialement.

Le bon fichier*

Parfait! Exactement ce que je rechairchais, merci !