Sub Export()
Application.ScreenUpdating = False
'Protection :
ActiveWorkbook.Unprotect
Sheets("Types_a_Créer").Unprotect
Sheets.Add.Name = "Export"
Sheets("Types_a_Créer").Select
Sheets("Types_a_Créer").Range("E12").Select
Sheets("Types_a_Créer").Range(Selection, Selection.End(xlToRight)).Select
Sheets("Types_a_Créer").Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Export").Select
Sheets("Export").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ChDir ThisWorkbook.Path
Application.ScreenUpdating = False
Sheets("Export").Copy
ActiveWorkbook.SaveAs Filename:=Range("A1").Value & ".txt", FileFormat:=xlCSV, CreateBackup:=False
ActiveSheet.Range("A1").ClearContents
ActiveWorkbook.Save
Application.DisplayAlerts = False
ActiveWindow.Close
Sheets("Export").Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
'Protection :
Sheets("Types_a_Créer").Protect, DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveWorkbook.Protect, Structure:=True, Windows:=False
Application.ScreenUpdating = True
End Sub