Aide pr une macro copie de plusieurs cellule en 2 cellules

Bonjour le forum;

S'il vous plait, j'ai besoin de copier toutes les cellules de la feuille 1 dans la feuille le tt regroupé dans deux cellule comme dans le fichier ci-joint.

Merci d'avance pour votre aide !

Cordialement.

Bonjour,

un essai, limité à 256 colonnes, car ma version XL2003 ne va pas plus loin !

Sub MiseEnColonne()
Dim T, Lig As Long, Col As Long
 Lig = 2
 For Col = 1 To 256 Step 2 ' adapter le nombre de colonne au nombre réel de colonne
    With Worksheets("Feuil1")
    T = .Range(.Cells(2, Col), .Cells(35, Col + 1))
    End With
    With Worksheets("Feuil2")
    .Range("A" & Lig).Resize(UBound(T), 2) = T 'copie des données colonne A à adapter
    Lig = .Range("A" & Rows.Count).End(xlUp).Row + 1
    End With
 Next
End Sub

A+

Bonsoir !

Merci infiniment pour votre réponse, ça fonctionne très bien !!

Cordialement