Bonjour le forum

J'ai le code ci-dessous qui fonctionne correctement et qui me supprime bien la feuille:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Sub Delete ()
For Each Feuille In ActiveWorkbook.Wofsheets
If Left (Ucase(Feuille.Name, 7) = "Contrat" Then
Application.DisplayAlerts = False
Feuille.Delete
Application.DisplayAlerts = True
Exit For
End If
Next Feuille
End Sub
Ce que je souhaiterais, c'est de modifier plusieurs feuilles (et uniquement celles-ci) qui commencent par "contrat"
Les feuilles nommées peuvent être du style:
"contrat (1)" ou bien "contrat N°1" ainsi de suite...

D'avance merci

Cordialement