Application.Goto Reference:="Traitement_Concat"
Range("A1:Q6868").Select
Range("B6570").Activate
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ChDir "C:\Users\psei09701\Desktop\TEST"
Workbooks(NomFichierBaseInstallations).Worksheets(1).Activate
fileSaveName = Application.GetSaveAsFilename( _
"", fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName <> False Then
Worksheets(1).SaveAs fileSaveName, FileFormat:=xlCSV, Local:=True, CreateBackup:=False
End If
ActiveWorkbook.Close