Sub Synthese()
Dim DerLigne&, DerLigne2&, Tablo, i&, PremLigne&
DerLigne = Sheets("Synthèse").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To Sheets.Count
PremLigne = Sheets("Synthèse").Range("A" & DerLigne).End(xlUp).Row + 1
DerLigne2 = Sheets(i).Range("A" & Rows.Count).End(xlUp).Row
Tablo = Sheets(i).Range("A2:B" & DerLigne2).Value
Sheets("Synthèse").Range(Cells(PremLigne, 1), Cells(UBound(Tablo), 2)) = Tablo
Next i
End Sub