Supprimer des onglets sous condition

Bonjour le Forum et merci de me lire.

Je suis à la recherche de 2 Macros

1ère Macro:

Consiste à supprimer les onglets dont la couleur (des onglets) est (verte 719876).

2ème Macro:

Consiste à supprimer les onglets dont la cellule B11 de chaque onglet est marquée TERMINER.

Dans l'attente je vous remercie de votre réponse.

Bonjour

A tester

Avec XL 2003 la suppression par la couleur ne passe pas : A voir avec 2010

Option Explicit

Sub Sup1()
Dim Ws As Worksheet

  Application.DisplayAlerts = False
  For Each Ws In Sheets
    If Ws.Tab.Color = 719876 Then
      Ws.Delete
    End If
  Next Ws
  Application.DisplayAlerts = True

End Sub

Sub Sup2()
Dim Ws As Worksheet

  Application.DisplayAlerts = False
  For Each Ws In Sheets
    If Ws.Range("B11") = "TERMINER" Then
      Ws.Delete
    End If
  Next Ws
  Application.DisplayAlerts = True

End Sub

Merci Banzai64

C'est super ça fonctionne tres bien, tu m'enleves une épine du pied.

Petit bémol à la fin de la 2ème macro apres avoir enlevé tous les onglets avec les cellules TERMINER, un message d'erreur d'exécution N°13 incompatibilité du type?

Quand je débogue, ilm'indique la ligne If ( je suppose qu'il recherche une autre cellule TERMINER ).

Cette erreur peut elle être corrigée ?????

Encore un grand merci.

Bonjour

Pas évident de trouver pourquoi cela bloque

Que contient exactement ta cellule B11 ?

Ce n'était pas la dernière feuille ?

Désolé pas chez moi actuellement je n'ai pas trop les moyens de tester

Si quelqu'un peut t'aider à trouver la solution, merci d'avance

Edit: Si la cellule contient une erreur (ce que je pense)

essayes

Sub Sup2()
Dim Ws As Worksheet

  Application.DisplayAlerts = False
  For Each Ws In Sheets
    If Not IsError(Ws.Range("B11")) Then
      If Ws.Range("B11") = "TERMINER" Then
        Ws.Delete
      End If
    End If
  Next Ws
  Application.DisplayAlerts = True

End Sub

Encore un grand merci Banzai64, ta nouvelle macro fonctionne à merveille.

Au plaisir.