XL 2013 VBA copie feuille et colle sans Objet (Shape-Image)

Public Sub Macro1()
Dim CC As Workbook 'déclare la variable CC (Classeur Copié)
Dim F As Worksheet 'déclare la variable CC (Classeur Copié)

'crée un nouveau classeur avec l'onglet Facture et le dernier onglet
Sheets(ActiveSheet.Name).Copy ' Copier cette Feuille dans un nouveau classeur
Set CC = ActiveWorkbook 'définit le classeur copié CC
Set F = CC.Worksheets(ActiveSheet.Name) 'définit la feuille copié F
    F.DrawingObjects.Delete 'Supprime tous : les images, objets et divers de la feuille copié F
End Sub

Public Sub Macro2()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim CD As Workbook 'déclare la variabvle CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim OJ As Shape 'déclare la variable OJ (ObJet)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Set CS = ThisWorkbook 'définit la classeur source CS
Set OS = CS.ActiveSheet 'définit l'onglet source
OS.Copy 'copie l'onglet source dans un classeur vierge
Set CD = ActiveWorkbook 'définit la classeur destination
Set OD = CD.Worksheets(1) 'définit l'onglet destination
OD.Cells.Copy 'copie les cellules de l'onglet OD
OD.Range("A1").PasteSpecial xlPasteValues 'colle les valeurs dans A1 de l'onglet OD
Application.CutCopyMode = False 'supprime le clignotement lié à la copie
For Each OJ In OD.Shapes 'boucles sur tous les objects OJ de l'onglet OD
    OJ.Delete 'supprime l'objet
Next OJ 'prochain objet de la boucle
OD.Range("A1").Select 'sélectionne la cellule A1
End Sub