Macro qui ré-arrange les colonnes d'un fichier

Bonjour à tous !

J'ai besoin d'aide pour une macro qui ré-arrange l'ordre des colonnes.

Voici mon cas : J'ai deux fichiers. csv dont les 3/4 des colonnes sont identiques, mais pas dans le même orde. Je fais tourner sur l'un d'eux une macro. J'aimerais pouvoir faire tourner une nouevlle macro qui me mets les colonnes dans le même ordre que ce dernier fichier, je pourrais ainsi faire tourner ma macro habituelle sur ce fichier réarangé

Il faut simplement que certaines colonnes (presque toutes à vrai dire) changent d'ordre

Voici les ré-arrangement que je souhaiterais :

• A --> B
• B --> M
• C --> AB
• D --> AC
• E --> A
• F --> D
• G --> E
• H--> F
• I --> G
• J --> H
• K --> I
• L --> L
• M --> J
• N --> AD
• O --> N
• P --> O
• Q --> P
• R --> Q
• S --> R
• T --> S
• U --> T
• V --> U
• W --> V
• X --> W
• Y --> X
• Z --> Y
• AA --> Z
• AB --> AA

En résumé, je voudrais que le fichier 2 prenne la structure du fichier 1

Je vous joins les deux fichiers.

D'avance merci pour votre aide !!

Je reste à votre dispo si je n'ai pas été assez clair

Bonjour

A tester :

Dim colA, colB, i

Sub Réaménager()

    Range("A:AB").Insert Shift:=xlToRight
    For i = 1 To 28
        colA = Choose(i, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30)
        colB = Choose(i, "B", "M", "A", "A", "A", "D", "E", "F", "G", "H", "I", "L", "J", _
                "A", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "C", "K")
        Columns(i + 28).Cut Destination:=Range(colB & ":" & colB)
    Next i
End Sub

Bye !

Salut gmb,

yes elle me convient ! Tu avais juste fait une toute petite erreur dans les lettres des colonnes mais j'ai corrigé

Je te remercie pour ton aide !

OK

Et j'ai vu trop tard que l'instruction concernant ColA est finalement inutile et tu peux la supprimer.

Bye !