Suppression de feuilles via userform

Bonjour à tous,

Je débute complètement en VBA et je suis peu perdue. Je ne sais pas si ce que je veux faire est possible ou pas…

J’ai créé un userform pour ajouter des feuilles automatiquement. L’utilisateur entre dans une textbox le nom de la feuille à ajouter et celle-ci se crée. Cela marche bien. Voici le code :

Je voudrais maintenant avoir un userform permettant de supprimer une feuille. Dans l’userform j’ai créé une zone de liste qui contient la liste des feuilles. L’utilisateur sélectionne alors la ou les feuilles qu’il souhaite supprimer. Cependant, je n’ai aucune idée de comment coder pour que la macro supprime la feuille sélectionnée (suivant son nom). J'ai commencé ce code :

Dim sh

Dim i As Integer

For i = 0 To ListBoxFeuilles.ListCount - 1

If ListBoxFeuilles.Selected Then ...???

Là je veux lui dire de supprimer la feuille qui a le même nom que l'élément de la liste que l'utilisateur a sélectionné.

Pouvez-vous m’aider ?

Merci d’avance pour vos réponses.

Bonsoir,

Ceci devrait convenir si le nom de la feuille se trouve dans la 1ère colonne de la ListBox

    Dim i As Integer
    With ListBoxFeuilles
        For i = 0 To .ListCount - 1
            If .Selected(i) Then Sheets(.List(i, 0)).Delete
        Next i
    End With

Ca fonctionne ! Merci beaucoup !!