Dim i As Long
Dim PremLigne As Long, Wk1 As Workbook, Shs As Worksheet, Wk2 As Workbook
Set Wk1 = ThisWorkbook 'classeur de la macro
Set Wk2 = Workbooks("Classeur2") 'classeur de destination
Set Shs = Sheets("synthese") 'feuille ou s'effectue la copie
For i = 6 To Worksheets.Count - 2
'sélectionner la ligne ou coller les données
PremLigne = Wk1.Shs.Range("A" & Rows.Count).End(xlUp).Row + 1
'copier et coller les données
Wk2.Sheets(i).Range("E18:E40").Copy
Wk1.Shs.Range("A" & PremLigne).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Next