Copie de la feuille du classeur ouvert vers un nouveau class

Salut à tous,

J'aurai besoin d'une aide concernant ce petit code ci dessous qui ne fonctionne pas.

En effet, je veux copier la dernière feuille de mon classeur ouvert et le coller dans un nouveau classeur.

Merci de votre aide

Bonne journée

Sub TaborAnneePro()
'Créer un nouveau classeur
Set NvoClass = Workbooks.Add
With ThisWorkbook
Worksheets(Sheets.Count).Copy NvoClass
End With
End Sub

Bonjour,

Pas nécessaire de créer un nouveau classeur, ce code le fait directement.

Sub TaborAnneePro()
    ThisWorkbook.Sheets(Sheets.Count).Copy
End Sub

Evidemment tu peu le renommer ensuite avec SaveAS..

A+

Merci pour ta réponse.

Mais ça ne fonctionne pas malheureusement. Il me met en message : l'indice n'appartient pas à la sélection

Cette ligne de code NE SAIT PAS faire une erreur.

Sauf Si la feuille est Protégée ?, La feuille est cachée ?

Tu a ajouter quelque chose ?