Macro déplacer des colonnes ?

Bonjour, j'aurais besoin d'un macro qui me déplacerais les colonnes en fonction d'un nom par exemple :
Je veux que:
la colonne C du nom "Aurevoir" soit placée en A
la colonne D du nom "POT" soit placée en B.

Et dans la cas ou la colonne est déjà bien placée ne rien faire.

Merci:lol:

Bonjour,

Parmi plusieurs possibilités, déplacement des colonnes et cellules :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub DeplacerColonnes()   [A:F].Cut [B:G] [D:D].Cut [A:A] [B:C].Cut [C:D] [E:E].Cut [B:B] [F:G].Cut [E:F]   End Sub   Sub DeplacerCellules()   [A1:F1].Cut [B1:G1] [D1].Cut [A1] [B1:C1].Cut [C1:D1] [E1].Cut [B1] [F1:G1].Cut [E1:F1]   End Sub

---

Hervé.

Oui ça fonctionne mais je me rends compte que ça ne vas pas sur mon fichier, alors serait-il possible de dire à une macro :

Copier la colonne "ALLO" en A vers la feuille 2 en colonne C ?
Copier la colonne "MAMAN" en D vers la feuille 2 en colonne A ?

J'en ai 8 à faire.

merci je ferais le reste.