Transposé avec macro

Bonjour le forum !

S'il vous je souhaite afficher le résultat des colonnes colorées dans le fichier ci-joint à l'aide d'une macro, car ce fichier est juste un prototype , l'autre fichier source est de taille assez grande !

Merci d'avance pour votre aide !

Cordialement.

bonjour,;

une proposition

Sub aargh()
    With Sheets("feuil1")
        dc = .Cells(2, Columns.Count).End(xlToLeft).Column 'nombre de colonnes à transposer
        .Cells(3, dc + 1).Resize(, 20).EntireColumn.Delete 'suppression des colonnes transposées existantes
        dl = .Cells(Rows.Count, 2).End(xlUp).Row 'dernière ligne à copier
        For j = 2 To dc 'on prend chaque colonne à partir de la colonne 2 (B)
            .Cells(2, j).Copy .Cells(3, dc + j * 2).Resize(dl - 2)
            .Cells(3, j).Resize(dl - 2).Copy .Cells(3, dc + j * 2 + 1)
        Next j
    End With
End Sub

merci ça fonctionne bien !