copie feuille caché

Bonsoir Didier

Je pense que tu fais bcp de manips pour rien dans le code ci-dessus...

Essaie plutôt avec ce code :
Sub Copie_Feuille_dr()
With Sheets("DR")
.Visible = True
.Copy
End With
ThisWorkbook.Sheets("DR").Visible = False
End Sub

Bonne Nuit
@+Thierry

merci thierry

c'est en fait une macro automatique que j'ai repomper
mais avec la feuill visible.

je ne suis qu'un humble débutant en vba

Concernant la copie sur un autre classeur d'une feuillle
J'aimerai connaitre les commande vba
pour : proteger la feuille nouvellement creer
tout en conservant les particularité de la premiére feuille
je m'explique, j'ai constaté que lors de la recopie, les informations sur les cellules en particulier le verrouillage et le cache disparaissent, laissant la nouvelle feuille créer a la libre création.
hors j'aimerais conservér cette mise en forme. De plus si la feuille de dépar
est proteger par un code, lors de la recopie, ne subsiste qu'une photocopie
lors de la reproduction de cette feuille

merci de votre réponse
cordialement
didier

SAlut Didier

Vite fait et sans tester,

Sub Copie_Feuille_dr()
With Sheets("DR")
.Visible = True
.Copy
End With
With ActiveWorkBook.Sheets("DR")
.Protect "TOTO"
.Visible = False
End With
ThisWorkbook.Sheets("DR").Visible = False
End Sub

Mais bon tu auras un nouveau classeur avec une seule feuille qui sera cachée... (?) et si çà marche car je n'ai pas le temps de faire des tests.

Bon Courage
@+Thierry