Sub SauvFeuilles()
Dim FeuilXL As Worksheet, FeuilCSV As Worksheet
Application.ScreenUpdating = False
Set FeuilXL = Sheets('Feuil1')
Set FeuilCSV = Sheets('Feuil2')
'Feuille 1 en XLS
FeuilXL.Copy
With ActiveWorkbook
.SaveAs Filename:='C:\MonClasseurXL.xls', FileFormat:=xlNormal
.Close False
End With
'Feuille 2 en CSV
FeuilCSV.Copy
With ActiveWorkbook
.SaveAs Filename:='C:\MonClasseurCSV.csv', FileFormat:=xlCSV, Local:=True
.Close False
End With
Application.ScreenUpdating = True
End Sub