Private Sub CommandButton10_Click()
Dim wkbSource As Workbook, wkbCible As Workbook, fichier As String, nom As String, ws As Worksheet
Set wkbSource = ThisWorkbook
Application.ScreenUpdating = False
fichier = ThisWorkbook.Path
nom = fichier & "\" & R .Value & "_" & Format(Date, "dd-mm-yyyy") & ".xls"
ActiveWorkbook.[COLOR="Lime"]SaveCopyAs (nom)[/COLOR]
Workbooks.Open (nom)
Application.DisplayAlerts = False
ActiveWorkbook.Close Savechanges:=True
ActiveWorkbook.Save
Set wkbCible = ActiveWorkbook 'Au cas ou .. pour garder un accés au nouveau classeur
[COLOR="Red"] wkbSource.Sheets(Array("FEUIL1", "FEUIL2", "FEUIL3", "FEUIL4")).Select
wkbSource.Sheets(Array("FEUIL1", "FEUIL2", "FEUIL3", "FEUIL4")).Copy[/COLOR]
'Suppression des formules ( mon code VBA)
Worksheets.Select
With ActiveSheet
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Select
End With
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub