Sub Export()
X = "Gammecsv"
[COLOR=red]chemin=ActiveWorkbook.Path[/COLOR]
With Sheets("Gamme")
.Copy
End With
ActiveSheet.Name = X
Dim classeur As Workbook
Set classeur = ActiveWorkbook
With classeur
.SaveAs Filename:=([COLOR=red]chemin & "\"[/COLOR] _
& ActiveSheet.Name), FileFormat:=xlCSV, CreateBackup:=False
End With
classeur.Close True
End Sub