XL 2019 Suppression par les left ou right excel vba

[DJISA]

Bonsoir le Forum
Nous voudrions savoir si on peut supprimer des feuilles en utilisant les fonctions left ou right en vba.
Si cela est possible, quel code je peux utiliser pour supprimer, excepté la feuille "mod_CLA", les feuilles
"3ACLA", "3BCLA", "4ACLA"?
Merci
DJISA

 

[Staple1600]

Bonsoir le fil, DJISA

•>DJISA

Sub Test_OK()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If InStr(1, ws.Name, "CLA", vbTextCompare) > 0 Then
If Not ws.Name Like "mod_CLA" Then
ws.Delete
End If
End If
Next
End Sub

 

[DJISA]

Bonsoir Staple1600, le forum
Merci pour le coup de pouce. Le code fonctionne.
DJISA