Générer feuille en un clic

Sub Macro1()
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)

With ThisWorkbook.Sheets("Feuil1") 'prend en compte l'onglet "Feuil" du classeur "Feuille base"
    .Rows(1).ClearContents 'efface la ligne 1
    With .Columns("B:B") 'prend en compte la colonne B
        .ClearContents 'efface la colonne
        .Insert Shift:=xlToRight 'insère une colonne à gauche
        .Insert Shift:=xlToRight 'insère une colonne à gauche
    End With 'fin de la prise en compte de la colonne B
    .Range("A1") = -1 'place -1 en A1
    .Range("B1") = 3 'place 3 en B1
    dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne de la colonne A
    .Range("C2:C" & dl).Value = "A" 'place "A" dans la colonne C de la ligne 2 à dl
    .Columns("A:E").ColumnWidth = 8.43 'ajute la largeur des colonne A à E
End With 'fin de la prise en compre de l'onglet "Feuil1" du classeur "Feuille base"
End Sub

Sub Creation_commande()
'
' Creation_commande Macro
'

    ActiveSheet.Select
    ActiveSheet.Copy
  Dim dl As Integer 'déclare la variable dl (Dernière Ligne)

With ActiveSheet 'prend en compte l'onglet "Feuil" du classeur "Feuille base"
    .Rows(1).ClearContents 'efface la ligne 1
    With .Columns("C:C") 'prend en compte la colonne C
        .ClearContents 'efface la colonne
    End With
    With .Columns("B:B") 'prend en compte la colonne B
        .ClearContents 'efface la colonne
        .Insert Shift:=xlToRight 'insère une colonne à gauche
        .Insert Shift:=xlToRight 'insère une colonne à gauche
    End With 'fin de la prise en compte de la colonne B
    .Range("A1") = -1 'place -1 en A1
    .Range("B1") = 3 'place 3 en B1
    dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne de la colonne A
    .Range("C2:C" & dl).Value = "A" 'place "A" dans la colonne C de la ligne 2 à dl
    .Columns("A:E").ColumnWidth = 8.43 'ajute la largeur des colonne A à E
End With 'fin de la prise en compre de l'onglet "Feuil1" du classeur "Feuille base"
ActiveSheet.Shapes.Range(Array("Button 1")).Select
    Selection.Delete
      
        Dim NOMDOSSIER$, Chemin$
NOMDOSSIER = "Dossier_cible"
If Dir(ActiveWorkbook.Path & "\" & NOMDOSSIER, vbDirectory) = "" Then
MkDir ActiveWorkbook.Path & "\" & NOMDOSSIER
End If
Chemin = ActiveWorkbook.Path & "\" & NOMDOSSIER & "\"
ActiveWorkbook.SaveAs Chemin & ActiveSheet.Name, _
        FileFormat:=xlCSV
        
        ActiveWorkbook.Close savechanges:=True

End Sub