Salut à tous,
Voici une réponse en VBA qui m'a été donné par un Des Maitres XLD: @+Thierry
Sub KillPrivateSubSheet ()
With ActiveWorkbook.VBProject.VBComponents (ActiveWorkbook.Sheets("Feuil1").CodeName) .CodeModule.Deletelines 1, .CountOfLines.CodePane.Window.Close
End With
End Sub
Si je ne me suis pas planté dans la retranscription et que cela marche tu peux remercier @+Thierry; sinon j'ai le droit de réverifier ma transcription.
A plus.