Macro qui ne fonctionne plus

Sub report()
Sheets("Feuil2").Range("A2:F" & Rows.Count).ClearContents
With Sheets("Origine")
    dercol = .Cells(5, Columns.Count).End(xlToLeft).Column
    derlin = .Cells(Rows.Count, 1).End(xlUp).Row
    tablo = .Range(Cells(5, 1), Cells(derlin, dercol))
    For n = LBound(tablo, 1) + 1 To UBound(tablo, 1)
        For m = 4 To UBound(tablo, 2)
            If tablo(n, m) > 0 Then
                With Sheets("Feuil2")
                    derl = .Cells(Rows.Count, 1).End(xlUp).Row + 1
                    .Cells(derl, 1) = tablo(n, 1)
                    .Cells(derl, 2) = tablo(n, 2)
                    .Cells(derl, 3) = tablo(n, 3)
                    .Cells(derl, 4) = tablo(1, m)
                    .Cells(derl, 6) = tablo(n, m)
                End With
            End If
            If tablo(n, m) < 0 Then
                With Sheets("Feuil2")
                    derl = .Cells(Rows.Count, 1).End(xlUp).Row + 1
                    .Cells(derl, 1) = tablo(n, 1)
                    .Cells(derl, 2) = tablo(n, 2)
                    .Cells(derl, 3) = tablo(n, 3)
                    .Cells(derl, 4) = tablo(1, m)
                    .Cells(derl, 5) = -tablo(n, m)
                End With
            End If
        Next m
    Next n
End With
Sheets("Feuil2").Select
End Sub