Développez des lignes à partir des colonnes

Bonjour a tous,

Voila, je cherche une macro qui me permet de développer des lignes à partir des colonnes.

Un un exemple très claire est en pièce jointe.

Merci d'avance

bonjour,

une proposition

Sub aargh()
    With Sheets("sheet1") 'feuille source
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        dc = .Cells(1, Columns.Count).End(xlToLeft).Column
        pcr = 4
        Sheets.Add after:=Sheets(Sheets.Count)
        Set ws = ActiveSheet 'feuille destination
        .Cells(1, 1).Resize(, pcr).Copy ws.Range("A1")
        k = 1
        For i = 2 To dl
            For j = pcr To dc
                If .Cells(i, j) <> "" Then
                    k = k + 1
                    .Cells(i, 1).Resize(, pcr).Copy ws.Cells(k, 1)
                    ws.Cells(k, pcr) = .Cells(i, j)
                End If
            Next j
        Next i
    End With
End Sub

C'est parfait ! merci beaucoup.