Sub test()
Dim Cellule As Range, I As Integer, Derligne As Integer
I = 3
With Sheets("table")
Derligne = .Range("A" & .Cells.Rows.Count).End(xlUp).Row + 1
.Cells(Derligne, 1) = Sheets("saisie").Range("D1")
.Cells(Derligne, 2) = Sheets("saisie").Range("D2")
For Each Cellule In Union(Sheets("saisie").Range("B5:B8"), Sheets("saisie").Range("B10:B15"), Sheets("saisie").Range("B17"))
.Cells(Derligne, I) = Cellule
I = I + 1
Next
For Each Cellule In Union(Sheets("saisie").Range("C5:C8"), Sheets("saisie").Range("C10:C15"), Sheets("saisie").Range("C17"))
.Cells(Derligne, I) = Cellule
I = I + 1
Next
End With
End Sub