Macro VBA pour copier un fichier et "transposer les champs"

Bonjour,

Est-ce qu'une personne bien attentionnée pourrait m'écrire un code vba pour copier un fichier excel dans un autre onglet en modifiant la disposition du fichier de départ (comme l'exemple ci-dessous). Actuellement je le fais à la main car mes connaissances actuelles en VBA ne me permette pas de programmer la commande. Je dois faire cette opération 1 à 2 fois par mois. Le fichier contient environ 500 articles, donc j'en ai à chaque fois pour 3-4 heures et avec un risque d'erreur conséquent ...

Exemple :

Disposition de départ :

Colon.A Colon.B Colon.C

121143 121144 etc.

000073 002448

000120 004240

000150 003420

000190 002910

000116 002644

000088 002500

000073 002448

000069 002433

000063 002409

000059 002405

Disposition d'arrivée

Colon.A Colon.B

121143 000073

121143 000120

121143 000150

121143 000190

121143 000116

121143 000088

121143 000073

121143 000069

121143 000063

121143 000059

121144 002448

121144 004240

121144 003420

121144 002910

121144 002644

121144 002500

121144 002448

121144 002433

121144 002409

121144 002405

J'ai commencé ma macro de la manière suivante :

Sub ListeDePrix()

Dim Colonne As Integer

Dim der_colonne As Integer

Dim C As Integer

der_colonne = Cells.SpecialCells(xlCellTypeLastCell).Column

'boucle qui va copier jusqu'à la dernière colonne dispo

For Colonne = 1 To der_colonne

'copie les valeurs de la colonne et les colle à partir de la colonne B

Worksheets("Feuil1").Range("A2:A11").copy Worksheets("Feuil2").Range("B1")

'copie la valeur de la colonne 1 et de la ligne 1 et insère la même valeur pour les 10 lignes

Worksheets ("Feuil1").Range(A

Next Colonne

ça se complique déjà ici car en fait je dois mettre une variable pour Range ("B2:B11") car la colonne doit toujours être plus 1 et je ne sais pas comment le faire et pour le copier dans le nouvelle onglet la postion B1 varie également à chaque copie et je dois aussi mettre en variable et je ne sais pas comment l'écrire en VBA.

Voilà si une personne bien attentionnée pouvait m'aider, je le serais très reconnaissante. Un exemple de fichier se trouve en annexe.

Merci de m'avoir lu ...

Bonsoir Macalexis,

Un essai dans le fichier joint. Le code est dans module1.

Bonsoir,

ci-jointe autre proposition

Bonjour Mapoire et Thev,

Un GRAND MERCI pour cette macro qui va me simplifier la vie, merci également pour votre réaction rapide et la mise à disposition de la macro. C'est top cette entraide

Bonne journée à vous deux

MacAlexis