Dim nomfichier As String
nomfichier = nom_dr & ".csv"
'
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "C:\Users\Public\Documents\MAJ TLC 2007"
ActiveWorkbook.SaveAs Filename:="C:\Users\Public\Documents\MAJ TLC 2007\" & nomfichier, FileFormat:=xlCSV, _
CreateBackup:=False