Création d'une nouvelle colonne et recopie de données

Bonjour

A partir d'un tableau organisé de la manière suivante (QTE par article / mois)

ARTICLE JANVIER FEVRIER MARS AVRIL

ABC 10 5 12 2

XYZ 4 20 12 19

Je dois créé de manière automatique une feuille qui sera organisée de la manière suivante:

(Création d'une colonne supplémentaire dans laquelle je retrouve les mois)

MOIS ARTICLE QTE

JANVIER ABC 10

JANVIER XYZ 4

FEVRIER ABC 5

FEVRIER XYZ 20

MARS ABC 12

MARS XYZ 12

AVRIL ABC 2

AVRIL XYZ 19

J'avoue que je sèche un peu sur la manière dont je doit aborder ce problème.... j'ai bien essayé avec un tableau croisé dynamique, mais il me semble qu'il me manque un champ (QTE) pour organiser mes données.

Merci d'avance

ZOé

Bonjour,

A adapter

Cdlt

nb : auteur Amadéus

Merci pour la réponse rapide.

Je viens de tester sur mon tableau, mais il bloque sur la première instruction ActiveSheet.Paste

(Désolée, mais je débute en Macro ...)

RE,

Vérifies ton code :

Sub Transpose()

Dim x, y As String

    Application.ScreenUpdating = False

    Range("C2", Range("C2").End(xlToRight)).Select
    x = Application.CountA(Selection)
    Range("B3", Range("B3").End(xlDown)).Select
    y = Application.CountA(Selection)
    Selection.Copy
    Range("K2").Select
    ActiveSheet.Paste
    Selection.Offset(0, 1) = Range("B2").Offset(0, 1)

    For i = 1 To x - 1
        ActiveCell.Offset(y, 0).Select
        ActiveSheet.Paste
        Selection.Offset(0, 1) = Range("B2").Offset(0, i + 1)
    Next

    For i = 1 To x
        Range("B3", Range("B3").End(xlDown)).Select
        Selection.Offset(0, i).Copy
        Range("M2").Offset(((i - 1) * y), 0).Select
        ActiveSheet.Paste
    Next

    Application.CutCopyMode = False
    Range("C2").Select

End Sub

Re,

Peux-tu envoyer un fichier exemple?

Cdlt.