il semble que ce soit possible
macro à adapter :
Sub Macro1()
Worksheets('feuil6').Cells.Copy
Workbooks.Add
Worksheets('feuil1').Paste
Workbooks(1).Activate
Worksheets('feuil7').Cells.Copy
Workbooks(2).Activate
Worksheets('feuil2').Paste
Workbooks(1).Activate
Application.DisplayAlerts = False
Worksheets('feuil6').Delete
Worksheets('feuil7').Delete
Application.DisplayAlerts = True
End Sub