Copier plusieurs plages de cellule dans une seule colonne

Bonjour à tous, j'aimerais regrouper dans une seule et même colonne plusieurs plages de cellule distinctes. J'ai trouvé (sur le web) un fichier qui se rapproche de ce que je recherche, que je met en pièce jointe.

Seul problème ce fichier copie l'ensemble des colonnes (B,C,D,E,F,G) pour les coller dans la colonne L alors que moi j'aimerais que l'on copie seulement certaines colonnes distinctes (par exemple uniquement les colonnes B,D,F)

Merci d'avance.

Bonjour

Remplaces la macro actuelle par celle-ci

Sub Transfert()
Dim Ligne As Long, I As Integer
Dim Colonnes

  Colonnes = Array("B", "D", "F")
  Ligne = Range("L" & Rows.Count).End(xlUp).Row
  If Ligne > 1 Then Ligne = Ligne + 1
  For I = 0 To UBound(Colonnes)
    Range(Cells(1, Colonnes(I)), Cells(Cells(Rows.Count, Colonnes(I)).End(xlUp).Row, Colonnes(I))).Copy Range("L" & Ligne)
    Ligne = Range("L" & Rows.Count).End(xlUp).Row + 1
  Next I
End Sub

Bonjour, Bonjour Banzai

Une proposition un peu différente :

clique n'importe où dans la colonne que tu veux voir être ajoutée à la colonne résultat et empile les résultats dans la colonne L

Etant en déplacement, je n'ai pas pu répondre plus tôt. En tout cas un grand merci à vous deux, c'est tout simplement exactement ce que je souhaitais obtenir.