Sub test()
Dim Wb As Workbook
Dim Wbr As Workbook
chemin = ThisWorkbook.Path
Set Wb = Workbooks("classeur2.xls")
Set Wbr = Workbooks.Add
Wbr.SaveAs Filename:=chemin & "\Destination" & ".xls"
With Wb
For sh = 1 To Wb.Sheets.Count
If Wb.Sheets(sh).Name = "Début" Then GoTo suite
If Wb.Sheets(sh).Name = "Fin" Then
GoTo suite
Else
Wb.Activate
Wb.Sheets(sh).Select
Debug.Print Wb.Sheets(sh).Name
Wb.Sheets(sh).Cells.Select
Selection.Copy
Wbr.Sheets.Add
Wbr.ActiveSheet.Paste
suite:
End If
Next
End With
Wbr.Close
End Sub