Copier des colonnes sous une autres

Bonjour j'aimerais un programme VBA qui copie la colonne A dans une autre feuille et qui copie la colonne B et C sous cette nouvelle colonne A sans prendre les entêtes.

En gros j'aimerais qu'il y ait qu'une colonne qui s'appelle choix qui regroupe les trois colonnes.

Merci Je vous joins mon fichier pour que vous compreniez peut-être mieux

Salut StagiaiireVannes,

voici ta macro.

'
Dim wks As Worksheet
Set wks = Worksheets("Choix")
'
For x = 1 To 3
    sCol = Choose(x, "A", "B", "C")
    iRow = Cells(Rows.Count, x).End(xlUp).Row
    '
    iRowC = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
    wks.Range("A" & iRowC).Resize(iRow - 1, 1).Value = Range(sCol & "2:" & sCol & iRow).Value
Next
'

A+

MErci ca marche bien mais je comprend pas tout votre code ^^

Comme le x, il sert a quoi ?

Car si par exemple j'ai des données dans la colonne D,E,F

et que je veux mettre dans la colonne B de la meme feuille que choix j'ai tester ca , mais ca marche pas (ci-joint le doc excel)^^ :

""

Dim wks As Worksheet

Set wks = Worksheets("Choix")

'

For x = 4 To 6

sCol = Choose(x, "D", "E", "F")

iRow = Cells(Rows.Count, x).End(xlUp).Row

'

iRowC = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1

wks.Range("B" & iRowC).Resize(iRow - 1, 1).Value = Range(sCol & "2:" & sCol & iRow).Value

Next

'""

Salut StagiiaireVannes,

ton erreur vient d'ici, je pense (pas testé!)

iRowC = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1

Comme tu veux coller tes valeurs dans 'B', ce sera :

iRowC = wks.Cells(Rows.Count, 2).End(xlUp).Row + 1

A+

Super ca marche, merci beaucoup