VBA - Réorganiser des colonnes

Bonjour le forum,

Je cherche une macro pour réorganiser des colonnes selon un ordre que j'ai fixé. Mon fichier étant assez lourd avec pas mal de macros, je souhaite éviter d'utiliser le presse papier Excel avec cut/insert et de rallonger la durée d’exécution de ma macro.

Avec vous une piste de macro que je pourrais ensuite adapter à mon fichier ?

Quelques informations supplémentaires sur le fichier :

- Les colonnes ont des Headers, mais ces derniers ne sont pas définitifs et seront amenés à changer au cours de la macro.
- Voilà pour le moment à quoi ressemble la partie que je souhaite optimiser :

'With wsMAJ
''    .Columns("D:D").NumberFormat = "0"
''    .Columns("F:F").Cut
''    .Columns("A:A").Insert Shift:=xlToRight
''    .Columns("D:D").Cut
''    .Columns("B:B").Insert Shift:=xlToRight
''    .Columns("A:G").EntireColumn.AutoFit
'End With

- wsMAJ correspond à ma feuille.

Si besoin, je pourrais uploader un fichier exemple, mais je ne pense pas qu'il soit utile pour ce cas, je saurais adapter la macro à mon fichier.

Merci d'avance pour votre aide,

J.

PS: Ici il n'y a que 2 colonnes à bouger, mais dans le futur, il y aura éventuellement plusieurs dizaine de colonne à déplacer