XL 2016 Supprimer les copies d'une feuille

[christ77000]

Bonsoir, j'ai un bout de code qui me supprime bien la feuille nommée en D29.
Maintenant j'ai une macro pour créer des copies de feuilles. Ma question est comment supprimer une suite de feuille sans supprimer l'original
exemple je copie la feuil1 donc j'ai bien Feuil1, Feuil1 (2), Feuil1 (3), Feuil1 (4) ne pas supprimer Feuil1. Merci pour votre aide.

Dim plageNoms As Range
Set plageNoms = Range("D29")
Application.DisplayAlerts = False
For Each cell In plageNoms
Sheets(cell.Value).Delete

 

[Patrice33740]

Si on se limite à ton exemple, il suffit de supprimer les feuille dont le nom se termine par une parenthèse.

Mais le meilleur moyen de détecter une copie d'une feuille dans un classeur, c'est de d'utiliser un codename spécifique : toutes les copies commencent par ce codename.

 

[christ77000]

J'ai tester ce code mais ca plante sur end If sans bloc If

Sub Supfeuil()
Dim Ws As Worksheet
If Ws.Name Like "(*)" Then
  Application.DisplayAlerts = False
  For Each Ws In Sheets
          Ws.Delete
End If
  Next Ws
  Application.DisplayAlerts = True
    
End Sub

 

[Patrice33740]

Ce serait plutôt :

Sub Supfeuil()
Dim Ws As Worksheet
  For Each Ws In Sheets
      If Ws.Name Like "*(*)" Then
          Application.DisplayAlerts = False
          Ws.Delete
          Application.DisplayAlerts = True
      End If
  Next Ws
End Sub

 

[christ77000]

Merci beaucoup 33740