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