Sub SaveExporteFeuil()
Sheets("Original").Copy
With ActiveSheet
.Name = "Parka_Janv_18"
.UsedRange.Value = ActiveSheet.UsedRange.Value
'.Shapes("Bouton").Delete
.Columns("g:g").Cut Destination:=Columns("az:az")
.Columns("az:az").EntireColumn.Hidden = True
End With
'D:/Appli/BPE/Résultats
'FileFormat:=
'xlWorkbookNormal =xls
'xlOpenXMLWorkbook =xlsx
'xlOpenXMLWorkbookMacroEnabled =xlsm
'save xlsx !
ActiveWorkbook.SaveAs Filename:="D:/Appli/BPE/Résultats", FileFormat:=xlOpenXMLWorkbook = xlsx, CreateBackup:=False
ActiveWindow.Close
ThisWorkbook.Activate: Range("A1").Select
'ActiveWorkbook.SendMail Recipients:=Range("az2:az" & Range("az65535").End(xlUp).Row), Subject:=[a1]
'ActiveWorkbook.Close SaveChanges:=False
End Sub