Copier un feuille excel dans un nouveau classeur sans les menus deroulants

Bonsoir a tous et toutes,
je voudrais copier une feuille excel en VBA par l'action d'un bouton.
j'ai tout le code pour copier coller dans un nouveau classeur mais cela me recopie les menus déroulants.
Sub Sauvegarde_fichier_debit()
Dim extension As String
Dim chemin As String, nomfichier As String
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xls"
chemin = "Q:\4_REPERTOIRE DES AFFAIRES"
nomfichier = ActiveSheet.Range("H11") & extension
With ActiveWorkbook.ActiveSheet.Cells
.Copy
.PasteSpecial Paste:=xlValues
End With
With ActiveWorkbook
ActiveSheet.Shapes.Range("Button 3").Delete
.Close
End With
End Sub
Pouvez vous m'aider s'il vous plait
je vous remercie d'avance
Cordialement
Titi