supp feuille avec nom

[SYLVAIN]

Bonjour Forum!!!

Comment faire pour supprimer (a l'aide d'une macro) toutes les feuilles dont le nom commence par "_"?????

Voila mon code mais il marche po


Dim Wa As Worksheet
For Each Wa In Sheets

If Left(Wa.Name, 1) = "_" Then

With WS

ActiveWindow.SelectedSheets.Delet

End With
End If
Next


D'avance merci

Sylvain

 

[Pascal76]

Salut Sylvain

Essaies ceci

Dim Wa As Worksheet

For Each Wa In Sheets

If Left(Wa.Name, 1) = "_" Then

Wa.Delete

End If

Next

Bon courage

Pascal

 

[SYLVAIN]

impec'

thx Pascal, gt pas loin