Sub MaSynthese()
LignesDepart = Sheets("Base").UsedRange.Rows.Count
Lignes = Int(LignesDepart / 15)
Sheets.Add
ActiveSheet.Name = "Synthèse"
Sheets("Base").Range("A1:B1").Copy
Sheets("Synthèse").Range("A1").Activate
ActiveSheet.Paste
For i = 2 To Lignes + 1
j = (i - 2) * 15 + 2
Sheets("Base").Range("A" & j & ":B" & j).Copy
Sheets("Synthèse").Range("A" & i).Activate
ActiveSheet.Paste
Next i
End Sub