Transposition Horizontale / Verticale

Option Explicit

Sub TransposeBdd()
    Dim LigSrc  As Integer, LigDst As Integer, ColSrc As Byte
    
    Application.ScreenUpdating = False
        With Sheets("Liste")
            LigDst = 10
            For LigSrc = 2 To .Range("A65536").End(xlUp).Row
                If Application.WorksheetFunction.CountA(.Range("C" & LigSrc & ":L" & LigSrc)) <> 0 Then
                    For ColSrc = 3 To 12
                        If Not IsEmpty(.Cells(LigSrc, ColSrc)) Then
                            .Range("M" & LigDst).Value = .Range("A" & LigSrc).Value
                            .Range("N" & LigDst).Value = .Range("B" & LigSrc).Value
                            .Range("O" & LigDst).Value = .Cells(LigSrc, ColSrc).Value
                            LigDst = LigDst + 1
                        End If
                    Next ColSrc
                End If
            Next LigSrc
        End With
    Application.ScreenUpdating = True
End Sub