Copier un oglet caché et le rendre visible

Bonjour

J'aimerais copier un onglet masquer dans mon classeur et que celui-ci se retrouve visible et la sélectionner par la même occasion:

pour la copie j'utilise se code:

Sub creerdeb()
Worksheets("DEB").Copy after:=Worksheets(Worksheets.Count)
End Sub

merci d'avance

Bonsoir M.Richoz, bonsoir le forum,

Essaie comme ça :

Sub creerdeb()
With Worksheets("DEB")
    .Visible = True
    .Copy after:=Worksheets(Worksheets.Count)
    .Select
End With
End Sub

Merci ThauThème

S'est presque bon mais il faudrait que se soit la nouvelle feuille qui soit sélectionner... ou la dernière du classeur du coup...

et il faut recacher la feuille DEB

Pour mieux comprendre les personnes qui vont utiliser le classeur vont faire plusieurs copie de l'onglet DEB et les supprimer par la suite s'est pourquoi je la masque pour qu'il ne la supprime pas par erreur

Sub creerdeb()

With Worksheets("DEB")
    .Visible = True
    .Copy after:=Worksheets(Worksheets.Count)
'    .Select
End With
Worksheets("DEB").Visible = False
End Sub

Bonsoir M.Richoz, bonsoir le forum,

ou :

Sub creerdeb()
With Worksheets("DEB")
    .Visible = True
    .Copy after:=Worksheets(Worksheets.Count)
    ActiveSheet.Select
End With
End Sub

j'ai essayer cela

Sub creerdeb()

With Worksheets("DEB")
    .Visible = True
    .Copy after:=Worksheets(Worksheets.Count)
    .Visible = False
End With
End Sub

et il semblerai que sa marche

merci

Bonsoir M.Richoz, bonsoir le forum,,

Dans ce cas :

Sub creerdeb()
With Worksheets("DEB")
    .Visible = True
    .Copy after:=Worksheets(Worksheets.Count)
    ActiveSheet.Select
    .Visible = False
End With
End Sub