Supprimer un type de contrôle

Bonjour le forum,

J'ai quelques soucis avec mon petit projet:

Je copie des feuilles d'un classeur vers un autre classeur.
Les feuilles que je copie ont différents contrôles (Command button, textbox, checkbox,...)
J'aimerai ne pas avoir de "Commandbutton" sur les copies et uniquement ceux là.

Je sais comment supprimer tous les objets de mes copies:

Private Sub CommandButton1_Click()
Dim Obj As Object

ThisWorkbook.Sheets.Copy

For Each Obj In ActiveSheet.DrawingObjects
Obj.Delete
Next Obj

End Sub

J'arrive à supprimer le ou les contrôles bien précis:

Private Sub CommandButton1_Click()

ThisWorkbook.Sheets.Copy

ActiveSheet.Shapes("Commandbutton2").Delete

End Sub

Mais ce que j'aimerai, c'est de pouvoir ne supprimer que les contrôles de type "CommandButton" quelquesoient leur nom

Vous remerciant par avance
Bonne journée à tous et @+

Pascal