Sub Export_txt()
Application.ScreenUpdating = False
Dim Chaine As String, Direction As String
Chaine = "R_"
Chaine = Chaine & InputBox("Veuillez choisir le nom du fichier à sauvegarder", "Exécution")
Columns("a:a").Select
Selection.Copy
Workbooks.Add
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Chemin où sauvegarder le fichier
Direction = "C:\Users\david-v\Desktop\Layout\"
ActiveWorkbook.SaveAs Filename:=Direction & Chaine, _
FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub