Salut je cherche a suppriler toutes les feuilles sauf celle active en VBA, je n'arrive pas a différencier celle ci des autres

Sub RemoveSheets()
Dim Sheet As Worksheet
Dim Actual As Worksheet
Actual = AcitveSheet
For Each Sheet In Worksheets
    If (Sheet <> Actual) Then
        Sheet.Delete
    End If
Next Sheet
End Sub

 Ceci me supprime tout

Merci a vous, désolez je debute en vba

resolu desolé

-
Edité par QuentinVidal5 12 novembre 2018 à 14:30:33