Sub ListeNomfeuilles()
Dim Sh As Worksheet, CetteFeuille As String, IndexW As Integer
Range("A2:A100").ClearContents
CetteFeuille = ActiveSheet.Name
IndexW = 2
For Each Sh In ActiveWorkbook.Sheets
If Sh.Name <> CetteFeuille Then
Cells(IndexW, 1) = Sh.Name
IndexW = IndexW + 1
End If
Next Sh
ActiveWorkbook.Names.Add Name:="NomFeuilles", RefersTo:=Range("A2:A" & IndexW - 1)
Range("A2:A" & IndexW - 1).Interior.Color = RGB(250, 230, 220)
End Sub