Sheets("Projet").Select
Sheets("Projet").Copy
' Selection.AutoFilter
Cells.Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Columns("A:BY").Select
Selection.Delete Shift:=xlToLeft
Rows("1:2").Select
Selection.Delete Shift:=xlUp
Rows("2:4").Select
Selection.Delete Shift:=xlUp
Columns("AX").Select
Selection.Delete Shift:=xlToLeft
Columns("AZ:BC").Select
Selection.Delete Shift:=xlToLeft
Columns("BB:BB").Select
Selection.Delete Shift:=xlToLeft
'Sauvegarde avec le même nom dans le même repertoires que le fichier XL d'origine
Application.DisplayAlerts = False
If FileFolderExists(Chem & "\Projet") Then 'Vérifie si le répertoire existe avec l'instruction en début de module
Else
MkDir Chem & "Projet" 'Si le répertoire existe pas, création de répertoire
End If
ActiveWorkbook.SaveAs Filename:=Chem & "Projet\" & Nom & "_Donnees.txt", FileFormat:=xlCSV, CreateBackup:=False
ActiveSheet.Range("A1").ClearContents
ActiveWorkbook.Save
Application.DisplayAlerts = False
ActiveWindow.Close