Private Sub CommandButton1_Click()
Sheets("Feuil2").Copy
Sheets("Feuil2").Name = "Action N°"
Range("A1").Select
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\Coût action N°.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub