Tranposition de colonnes en lignes

Private Sub CommandButton1_Click()
Dim I&, J&, Rw&
Dim Data As Variant, Report As Variant

Const FrstRw = 1 'Première ligne du tablau de départ (3 dans l'exemple)
Const LstCol = 4 'Dernière colonne du tableau de départ (6 (F) dans l'exemple)

With Sheets("Avant") 'A adapter
    Data = .Range(.Cells(FrstRw, 1), .Cells(.Cells(Rows.Count, 1).End(3).Row, LstCol))
End With

ReDim Report(1 To (UBound(Data, 1) * LstCol), 1 To 3)
For I = LBound(Data, 1) + 1 To UBound(Data, 1)
    For J = LBound(Data, 2) + 1 To UBound(Data, 2)
        If Data(I, J)  "" And Data(I, J)  0 Then ' Si on ne veux pas des "vides"
            Rw = Rw + 1
            Report(Rw, 1) = Data(I, 1)
            Report(Rw, 2) = Data(1, J)
            Report(Rw, 3) = Data(I, J)
        End If ' Si on ne veux pas des "vides"
    Next J
Next I

With Sheets("Après")
    .Cells(FrstRw, 1).Resize(Rw, 3) = Report
    .Activate
End With


End Sub

If Data(I, J) < >   "" And Data(I, J) < > 0 Then

If Data(I, J)  "" And Data(I, J)  0 Then

Const FrstRw As Long = 1 'Première ligne du tablau de départ (3 dans l'exemple)
Const LstCol As Long = 4  'Dernière colonne du tableau de départ (6 (F) dans l'exemple)
Private Sub Transpotting_Not_Thefilm(Sws As String, Dws As String)
Dim I&, J&, Rw&, Data As Variant, Report As Variant

With Sheets(Sws) 'A adapter
   Data = .Range(.Cells(FrstRw, 1), .Cells(.Cells(Rows.Count, 1).End(3).Row, LstCol))
End With

ReDim Report(1 To (UBound(Data, 1) * LstCol), 1 To 3)
For I = LBound(Data, 1) + 1 To UBound(Data, 1)
    For J = LBound(Data, 2) + 1 To UBound(Data, 2)
        If Not IsEmpty(Data(I, J)) And Data(I, J) <> 0 Then  ' Si on ne veux pas des "vides"
           Rw = Rw + 1
            Report(Rw, 1) = Data(I, 1)
            Report(Rw, 2) = Data(1, J)
            Report(Rw, 3) = Data(I, J)
        End If ' Si on ne veux pas des "vides"
   Next J
Next I

With Sheets(Dws)
    .Cells(FrstRw, 1).Resize(Rw, 3) = Report
    .Activate
End With
End Sub

Sub LetsgGoBaby()
Transpotting_Not_Thefilm "Avant", "Après"
End Sub