feuille masquer macro

Bonjour,j'ai des feuilles masquer, et dans ma macro je veux selectionner
toute les feuille qui ne sont pas masquer, j'essaie
Sheets.select

Sub zz()
For i = 1 To Sheets.Count
If Sheets(i).Visible = True Then Sheets(i).Select (False)
Next
End Sub

AV

Bonjour.
Il y a sans doute plus simple, mais essaie :

Sub Test()
Dim Tablo, sh As Worksheet, Ctr As Long
ReDim Tablo(0)
For Each sh In Sheets
If sh.Visible = True Then
ReDim Preserve Tablo(Ctr)
Tablo(UBound(Tablo)) = sh.Name
Ctr = Ctr + 1
End If
Next sh
Sheets(Tablo).Select
End Sub

Cordialement.
Daniel
"Umpire1976" <Umpire1976@discussions.microsoft.com> a écrit dans le message
de news: D063F2BB-BB7B-432E-8177-EE6D8C136218@microsoft.com...

Bonjour,j'ai des feuilles masquer, et dans ma macro je veux selectionner
toute les feuille qui ne sont pas masquer, j'essaie
Sheets.select

Mais cela ne fonctionne pas, pourriez-vous m'aider ?