Problème de format de cellule lors decopie de feuilles via macro

Bonjour à tous,

Après maints et maints essais, j'en reviens à votre précieuse aide.
Ci-dessous, une sub que j'utilise pour enregistrer dans un nouveau fichier les onglets sélectionnés (placé dans un tableau). La copie et l'enregistrement se font tres bien. Tout est bien présent, le hic c'est que le fond d'écran devient noir, les bordures rouges et le texte invisible (mais présent, j'ai vérifié), les couleurs ont changés.

Qui peut m'expliquer ce phénomène. Je précise que je travaille sous excel 2007 et que j'enregistre en xlsx.

D'avance un grand merci pour votre contribution

Petit bout de code :
Sub Enr_XLSX(Tab_feuilles() As Variant, Fichier As String)

' enregistre au format XLSX dans le répertoire reçu et avec le nom de fichier reçu, les feuilles sélectionnées

Sub Enr_XLSX(Tab_feuilles() As Variant, Fichier As String)

' enregistre au format XLSX dans le répertoire reçu et avec le nom de fichier reçu, les feuilles sélectionnées

Dim NouveauClasseur As Workbook

Sheets(Tab_feuilles).Copy

Set NouveauClasseur = ActiveWorkbook

NouveauClasseur.SaveAs Fichier

NouveauClasseur.Close



End Sub