Bonjour, Feuil1 est utilisé par défaut donc à adapter selon votre classeur (absent dans le message)
Sub fv()
Dim sh As Worksheet, dl&
With Feuil1
For Each sh In Worksheets
dl = .Cells(Rows.Count, 1).End(xlUp).Row + 1
If sh.Visible = True Then .Cells(dl, 1) = sh.Name 'affichage des feuilles visibles
'If sh.Visible = false Then .Cells(dl, 1) = sh.Name 'affichage des feuilles invisibles
Next
End With
End Sub