Bonjour,
Il suffit de le rendre visible le temps de la copie...
Par exemple :
Sub copy_feuille_masquee()
Application.ScreenUpdating = False
With Feuil1 'ou le nom de l'onglet
.Visible = xlSheetVisible
.Copy
.Visible = xlSheetVeryHidden
End With
End Sub
Puis enregistrer le classeur actif "ActiveWorkbook.SaveAs..."