Sub Macro1()
'
' Macro1 Macro
Sheets("feuil1").Copy
ThisWorkbook.SaveAs ThisWorkbook.Path & ".xls"
Sheets("feuil2").Copy
ThisWorkbook.SaveAs ThisWorkbook.Path & ".xls"
Sheets("feuil3").Copy
ThisWorkbook.SaveAs ThisWorkbook.Path & ".xls"
Sheets("feuil4").Copy
ThisWorkbook.SaveAs ThisWorkbook.Path & ".xls"
End Sub