Formule de transposition automatique

Bonjour,

J'aimerais transposer de manière automatisé une liste valeur dans une colonne vers des lignes afin de pouvoir filtrer les données : voir pièce jointe pour exemple.

Bonjour,

A tester :

Option Explicit

Sub Test()

Dim I As Integer, DerniereLigne As Integer, LigneEnCours As Integer

    With Sheets("Feuil1 (2)")

         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
         LigneEnCours = 2

         For I = 2 To DerniereLigne Step 4
             .Cells(LigneEnCours, "C") = .Cells(I, 1)
             .Cells(LigneEnCours, "D") = .Cells(I + 1, 1)
             .Cells(LigneEnCours, "E") = .Cells(I + 2, 1)
             LigneEnCours = LigneEnCours + 1
         Next I

    End With

End Sub