Exportation feuille sans couleur cellule

Sub ENREGISTRER()
'Macro par ERIC
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Dim Rep As Integer
    Rep = MsgBox("Voulez vous enregister une copie?", vbYesNo + vbQuestion, "Eric")
    If Rep = vbYes Then
    Else
    Exit Sub
    End If
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xlsx"
chemin = "G:\02 - Soumissions\" & Range("E9") & "\"
nomfichier = "Calcul - " & ActiveSheet.Range("E9") & " - " & Range("C9") & extension
With ActiveWorkbook
    .ActiveSheet.DrawingObjects(1).Delete
    .SaveAs Filename:=chemin & nomfichier
    .Close
End With
End Sub