Sub Snamelist()
Dim a() As String, s As Object, n As Integer
ReDim a(1 To Sheets.Count, 1 To 1)
With Feuil8 'CodeName de la feuille Récap, à adapter
For Each s In Sheets
If s.Name <> .Name And s.Visible = -1 Then n = n + 1: a(n, 1) = s.Name
Next
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With .[A2] '1ère cellule de restitution, à adaoter
If n Then .Resize(n) = a
.Offset(n).Resize(Rows.Count - n - .Row + 1).ClearContents 'RAZ en dessous
End With
End With
End Sub