Private Sub CommandButton4_Click()
Dim NouveauClasseur As Workbook
Dim FichierDest As Variant
FichierDest = Application.GetSaveAsFilename(FileFilter:="Fichiers Excel (*.xls),*.xls", Title:="Destination de l'enregistrement")
If FichierDest <> False Then
Application.ScreenUpdating = False
ThisWorkbook.Sheets("Toto").Cells.Copy
ThisWorkbook.Sheets("Toto").Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ThisWorkbook.Sheets("Titi").Cells.Copy
ThisWorkbook.Sheets("Titi").Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ThisWorkbook.Sheets(Array("Toto", "Toto")).Copy
Set NouveauClasseur = ActiveWorkbook
NouveauClasseur.SaveAs FichierDest
NouveauClasseur.Close False
Application.ScreenUpdating = True
End If
End Sub