Copier/coller selon VBA

Bonjour,

Je vous joints un fichier test ci-joint pour mon problème

J'aimerais avoir une formule automatisé qui me permettra de copier et coller les données d'un fichier excel à la fin de celui-ci.

Je m'explique, Dans mon fichier j'ai 17 ligne et 6 colonnes (A/b/c/d/e/f).

J'aimerais donc copier la colonne A donc (A1:A17) et la coller sur A18

Copier la colonne B (B1:B17) et la coller sous C18

Copier la colonne C (C1:C17) et la coller sous B18

Copier la colonne D (d1:d17) et la coller sous D18

Copier la colonne E (e1:e17) et la coller sous E18

Copier la colonne F (F1:F17) et la coller sous G18

Et cela puisse être applicable sur n'importe quel fichier Excel, car j'ai plusieurs fichier de nombre de ligne bien distincte

Le but étant que les données soit copier après la dernière ligne non vide.

Par exemple dans le fichier test la colonne se termine à la ligne 10 mais lors du collage j'aimerais que le collage se fasse après la dernière ligne non vide donc 17

En espérant que quelqu'un puisse m'aider

Cordialement

Hakan

Bonjour,

Sub Hakan()
    Dim deca, n%, k%
    With ActiveSheet
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        deca = Array("", 0, 1, -1, 0, 0, 1)
        Application.ScreenUpdating = False
        For k = 1 To 6
            .Cells(n + 1, k).Offset(, deca(k)).Resize(n).Value = .Cells(1, k).Resize(n).Value
        Next k
    End With
End Sub

NB: sans copier-coller (= plus rapide).

Cordialement.

Bonjour,

C'est exactement ce qu'il me fallait je vous en remercie

Cordialement