Bonjour
Voici une petite macro qui devrait convenir
Dim Feuille As String, Classeur As String
Classeur = ThisWorkbook.Name ' Nom du classeur actif
Feuille = "la feuille" ' Nom de la feuille masquée à copier
With Sheets(Feuille)
.Visible = True ' Rend visible
.Select
.Copy ' Copie vers un nouveau classeur et l'active
End With ' (On est sur le nouveau classeur)
Cells.Select ' Sélectionne tout
Selection.Copy ' Copie tout
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False ' Colle valeurs uniquement
Cells(1, 1).Select ' Repasse en cell A1
Workbooks(Classeur).Activate ' Repasse sur classeur de départ
Sheets(Feuille).Visible = False ' Masque la feuille
End Sub
A adapter à ton projet
Bonne journée