For j = 1 To UBound(A, 1)
Cells(j, 1).Value = Tableau(j, 2)
Cells(j, 2).Value = Tableau(j, 1)
Next j
For j = 1 To UBound(A, 1)
Cells(j + UBound(A, 1), 1).Value = Tableau(j, 3)
Cells(j + UBound(A, 1), 2).Value = Tableau(j, 1)
Next j
For j = 1 To UBound(A, 1)
Cells(j + 2 * UBound(A, 1), 1).Value = Tableau(j, 4)
Cells(j + 2 * UBound(A, 1), 2).Value = Tableau(j, 1)
Next j
For j = 1 To UBound(A, 1)
Cells(j + 3 * UBound(A, 1), 1).Value = Tableau(j, 5)
Cells(j + 3 * UBound(A, 1), 2).Value = Tableau(j, 1)
Next j
For j = 1 To UBound(A, 1)
Cells(j + 4 * UBound(A, 1), 1).Value = Tableau(j, 6)
Cells(j + 4 * UBound(A, 1), 2).Value = Tableau(j, 1)
Next j
For j = 1 To UBound(A, 1)
Cells(j + 5 * UBound(A, 1), 1).Value = Tableau(j, 7)
Cells(j + 5 * UBound(A, 1), 2).Value = Tableau(j, 1)
Next j
[COLOR="red"]For j = 1 To UBound(A, 1)
Cells(j + 6 * UBound(A, 1), 1).Value = Tableau(j, 8)
Cells(j + 6 * UBound(A, 1), 2).Value = Tableau(j, 1)
Next j
For j = 1 To UBound(A, 1)
Cells(j + 7 * UBound(A, 1), 1).Value = Tableau(j, 9)
Cells(j + 7 * UBound(A, 1), 2).Value = Tableau(j, 1)
Next j[/COLOR]