Copier ligne en colonne x fois selon nombre autres lignes

Bonjour à tous :)

D'après mon fichier ci-joint :

En Feuil2, je souhaiterais copier ma ligne 2 ("AA", "BB", etc) et les coller en colonne 1 dans Feuil1 selon X fois le nombre de lignes des dates.

Vous pouvez trouver le modèle souhaité en Feuil1.

Mon code est le suivant :

Sub COPIER_COLLER_PLS_FOIS()

Dim x As Integer
Dim Cpt As Integer

Sheets("Feuil2").Select
x = Range("A1").Value
Range("B2:E2").Select
Selection.Copy

With Sheets("Feuil1")
For Cpt = 1 To x

Sheets("Feuil1").Select
Range("A2").End(xlToRight).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Next Cpt
End With

End Sub

Je pense que mes erreurs sont nombreuses...

Je vous remercie beaucoup pour votre aide.

Bonjour MVL, le forum,

Un essai....

Sub test()
  Dim tablo, tabloN(), tabloT(), tabloP(), k%, i%, j%

   Sheets("Feuil1").Range("A1").CurrentRegion.Offset(1, 0).ClearContents

   With Sheets("Feuil2")
     j = 2
      Do While j <= .Cells(2, Cells.Columns.Count).End(xlToLeft).Column
       k = 0
       tablo = .Range("A2").CurrentRegion
       For i = 3 To UBound(tablo, 1)
         ReDim Preserve tabloN(1 To 2, 1 To k + 1)
          tabloN(1, 1 + k) = .Cells(2, j)
          tabloN(2, 1 + k) = tablo(i, 1)
        k = 1 + k
       Next i
     On Error Resume Next
       Sheets("Feuil1").Range("A" & Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row + 1).Resize(UBound(tabloN, 2), 2) = Application.Transpose(tabloN)
        Erase tabloN
     j = j + 1
      Loop
  End With
       Sheets("Feuil1").Activate
End Sub

CTRL + e pour lancer la macro....

Cordialement,

C'est juste génial !!! Merci mille fois !!!

Excellente journée et excellent week-end :D