Sub CSV_En()
Sheets("Source").Select
' Range("A1:M38").Select
' Range("A1:M38").Copy Plage copiée qui fonctionnait
Range("B1:L7,F10:H11,I10:J11,K10:L11,C26:J26").Select
Range("B1:L7,F10:H11,I10:J11,K10:L11,C26:J26").Copy
Workbooks.Add
ActiveSheet.Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
Application.CutCopyMode = False
fname = Application.GetSaveAsFilename(InitialFileName:="C:\Bureau\TEST_En_" & Year(Date) & "-" & Right("0" & Month(Date), 2) & "-" & Right("0" & Day(Date), 2), FileFilter:="CSV (Comma delimited) (*.csv), *.csv", Title:="Save As")
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlCSV
End Sub