Message d'erreur

Bonjour,

J'ai un classeur Excel qui comprend plusieurs feuilles.

J'aimerais enregistrer les deux première feuille en lui donnant un nom et le chemin.

Comme code j'ai ceci qui fonctionnerais sauf qu'il y a un message d'erreur

Impossible d'utiliser cette extension avec le type de fichier sélectionné............

Je suis sur Excel 2013

Mon code:

Sub Enregistrer()

Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xlsm"
chemin = "C:\Users\Max\Desktop\test\"
nomfichier = ActiveSheet.Range("A1") & "_Carte_" & extension
With ActiveWorkbook
    .ActiveSheet.DrawingObjects(1).Delete
    .SaveAs Filename:=chemin & nomfichier
    .Close
End With
End Sub

Merci de votre aide

Cordialement

Max

Re,

En fait le message d'erreur est résolu. J'aurais une autre question comment enregistrer les deux premières feuilles

Merci d'avance

Max