Listing onglets non masqués

Bonjour,

Je souhaiterais faire un listing du nom des onglets de mon classeurs qui ne sont pas "masqués".

J'ai donc fait ma macro pour avoir le listing de mes onglets :

Sub Liste_Onglets()

Application.ScreenUpdating = False

Sheets("Table").Select
Columns("B:B").Select
Selection.ClearContents
Range("B1").Select

Dim i As Integer

For i = 1 To Sheets.Count
        ActiveCell.Value = Sheets(i).Name
        ActiveCell.Offset(1, 0).Select
    Next i

Sheets("Dossier Révision").Select

Application.ScreenUpdating = True
End Sub

Cependant je n'arrive pas à intégrer une condition qui dit que si l'onglet est masqué, il en faut pas le prendre. J'ai essayé de faire des choses avec une condition avec Sheets.Activate = False -> Passer à la suite , mais je n'y suis pas arrivé.

Si quelqu'un peu m'aider, Merci !

Cordialement,

Bonjour,

il faut éviter de faire des trucs pour rien Selecter ou Activer par exemple...

Sub test()
Dim o, i%
With Sheets("Table")
    .Range("B:B").ClearContents
    For Each o In Worksheets
        If o.Visible Then
            .Cells(1 + i, 2) = o.Name
            i = i + 1
        End If
    Next
End With
On Error Resume Next
Worksheets("Dossier Révision").Activate
End Sub

A+

Et bah super, c'est exactement ce que je voulais merci !

Oui je suis pas très bon en vba donc je fait un peu par taton^^