preserver des feuilles cachées

[Francis]

Bonjour forum

Je voudrais effacer toutes les feuilles d'un classeur sauf la feuille ' tata ' et les feuilles cachées.
Mais les feuilles cachées sont aussi effacées.
Que faut-il modifier ?

Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> 'tata' And ws.Visible Then ws.Delete
Next
Application.DisplayAlerts = True

Merci pour votre aide
Francis

 

[PascalXLD]

Bonjour

Essaies

Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> 'tata' and ws.Visible=true Then ws.Delete
Next
Application.DisplayAlerts = True

Bon courage

 

[Francis]

Rebonjour Pascal et le forum
Toujours aussi rapide Pascal
merci
Francis