Mettre plusieurs colonnes en deux colonnes

Bonsoir,

J'arrive sans problème à entasser des centaines de colonnes l'une sous l'autre dans la meme colonne grace à une réponse trouvée sur le forum : https://forum.excel-pratique.com/viewtopic.php?t=7677

Cependant, dans le cadre de mon travail de recherche j'aurai besoin d'entasser un duo de colonnes ( Colonne Nom et colonne prenom) deux sous deux.

C'est a dire, J'ai : Nom, prenom, Nom, prenom, ..... ,Nom, prenom

et je veux les tourner en :

Nom, prenom

Nom, prenom

Nom, prenom.

Est ce quelqu'un peut m'aider svp. Je vous en serai très reconnaissante.

bonjour,

une proposition via une macro

Sub aargh()
    dc = Cells(1, Columns.Count).End(xlToLeft).Column
    dl = Cells(Rows.Count, 1).End(xlUp).Row + 1
    For i = 3 To dc Step 2
        k = Cells(Rows.Count, i).End(xlUp).Row
        Cells(2, i).Resize(k, 2).Copy Cells(dl, 1)
        dl = dl + k - 1
        Cells(2, i).Resize(1, 2).EntireColumn.Clear
    Next i
End Sub

Bonjour,

Merci beaucoup vous me sauvez la vie. Par contre j'aurais aimé garder la première ligne pour toutes les colonnes comme sur l'exemple ci joint. J'ai essayé de modifier sur la macro mais je ne m'y connais pas trop. Merci d'avance.