Ne conserver qu'une feuille du classeur

Bonsoir

Après avoir renseigné une feuille nommée Résultat par diverses procédures et formulaires, je souhaiterais effacer toute la partie Projet située à gauche, au-dessus de la fenêtre de propriétés :Feuil1 à Feuil(n), sauf Feuille "Résultat".. et tous modules et modules de classe et toutes userform afin de ne conserver que cette seule feuille...sans transmettre toute les procédures qui ont servi à la créer

Pour les feuilles, aucun problème, comme ci-dessous...

Dim Feuille

Next Feuille

.....c'est pour le reste ... module1 à module 9, classe1 à classe12

une idée ?

Merci

Salut jpmalb, le fil

Et si tu copie simplement ta feuille dans un autre classeur....

Sinon utilises ThisWorkBook.SaveAs c'est radical si tu enregistres au format .xlsx.

Ok...effectivement.. c'est beaucoup plus simple...merci

salut tout le monde

sinon comme ca

Sub Que_Resultat()
On Error Resume Next
Dim Element As Object
Dim Feuille As Worksheet

    For Each Feuille In ThisWorkbook.Worksheets
    If Feuille.Name <> "Résultat" Then
    Feuille.Delete
    End If

    Next Feuille

    For Each Element In ActiveWorkbook.VBProject.VBComponents
        ActiveWorkbook.VBProject.VBComponents.Remove Element
    Next Element

End Sub

Merci M3...ça me comble...

… sauf que ça ne marche pas... tous les formulaires et leurs procédures (VBAProject) ne sont pas supprimés…. mais ça m'ouvre des horizons pour chercher dans ce sens…..