Supprimer des feuilles suivant couleur onglet

JB22 à dit:

Bonjour,

Dans un dossier EXCEL j' ai un nombre variable de feuilles.
Je voudrais, par macro, supprimer toutes les feuilles dont l' onglet est de couleur verte.
Merci d' avance pour l' aide apportée.
Cordialement,
JB22

Cliquez pour agrandir...

Option Explicit

Sub EssAi()
Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Sheets
Application.DisplayAlerts = False
If Ws.Tab.ColorIndex = 10 Then Ws.Delete
Application.DisplayAlerts = True
Next Ws
End Sub

Cliquez pour agrandir...

JB22 à dit:

Je précise que dans les feuilles à supprimer la valeur de la cellule B3 est à 2.

Cliquez pour agrandir...

Je voudrais, par macro, supprimer toutes les feuilles dont l' onglet est de couleur verte.
Je précise que dans les feuilles à supprimer la valeur de la cellule B3 est à 2.

Cliquez pour agrandir...

Option Explicit
Sub Citron_vert_spécial_Dull()
Dim ws As Worksheet
Dim citronvert As Variant
citronvert = 5287936 'à adapter
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Tab.Color = citronvert Then ws.Delete
Next
Application.DisplayAlerts = True
End Sub