Macro transposer et compteur

Bonjour,

Je dispose d'un tableau de plusieurs lignes avec des "codes". Je voudrai copier puis coller ces codes à la suite sur une seule colonne, tout en attribuant une clé aux codes situés sur la même ligne.

C'est pas très clair désolé, peut être avec un exemple en pièce jointe...

Est-ce que quelqu'un peut m'aider ou m'expliquer, s'il vous plait?

Merci d'avance!

Bonsoir,

Un essai en PJ. Le code est dans la feuille 1.

Cdt,

Darzou

bonsoir,

une autre méthode, à copier/coller dans le module de la feuille

Sub try()
Dim derLig As Long, a As Long, aa As Variant, myRange As Range, zz As Long
Application.ScreenUpdating = False

If Not IsEmpty(Range("K2")) Then
    With Range("K1").CurrentRegion.Offset(1, 0)
        .ClearContents
        .ClearFormats
    End With
End If

derLig = Range("A" & Rows.Count).End(xlUp).Row

For a = 2 To derLig

    aa = Range(Cells(a, 1), Cells(a, Cells(a, 1).End(xlToRight).Column))
    zz = Cells(a, 1).Interior.Color
    Set myRange = Range("K" & Rows.Count).End(xlUp).Offset(1, 0).Resize(UBound(aa, 2), 1)
    myRange = Application.Transpose(aa)
    myRange.Interior.Color = zz
    myRange.Offset(, 1) = a - 1

Next a
Set aa = Nothing
Application.ScreenUpdating = True
End Sub

C'est vraiment top !!! Merci à vous deux!