Bouton contenant plusieurs macros

Bonjour,

J'utilise deux feuilles de mon classeur (Feuil1 et Feuil2)

La première feuille est vierge et la seconde contient un tableau en colonne (A1:J100)

Je voudrais par le biais d'un bouton macro qu'excel me copie/colle les cellules A1:A100 de la feuille 2 en A1:A100 de la feuille 1 à la première pression de ce bouton.

Puis en cliquant une seconde fois sur ce même bouton, qu'excel me copie/colle les cellules B1:100 de la feuille 2 en A1:A100 de la feuille 1

Je reclique une troisième fois et excel me copie/colle les cellules C1:C100 de la feuille 2 en A1:A100 de la feuille 1

et ainsi de suite jusqu'a la fin de mon tableau (feuil2)

Es-ce réalisable ?

(J'ai joint mon classeur pour l'exemple)

Bonsoir,

Sur la Feuil2, j'ai ajouté la 1ère ligne pour tester, tu peux la supprimer.

Une fois la dernière colonne copiée, revient à la 1ère

Sub CopyColonne()
Dim Lg&, cL%
    With Sheets("Feuil2")
        Lg = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
        cL = .Cells.Find("*", , , , xlByRows, xlPrevious).Column
        If Range("c1") > cL Or Range("c1") = "" Then Range("c1") = 1

        .Cells(1, Range("c1")).Resize(Lg, 1).Copy Destination:=Range("a1")
        Range("c1") = Range("c1") + 1
    End With
End Sub

Amicalement

Claude

Super c'est le résultat voulu.

Un grand merci à toi.