Afficher dans une colonne la liste de toutes les feuilles du classeur

Sub Test()
With Sheets("   Global    ")
    .Range("A1").CurrentRegion.Offset(1, 0).Resize(, 1).Clear
    For Each X In Sheets
        If X.Name <> "   Global    " Then .Range("A65536").End(xlUp).Offset(1, 0) = X.Name
        'Enlever le If pour afficher le nom de la feuille Global dans la liste.
    Next
End With
End Sub

Private Sub Worksheet_Activate()
With ActiveWorkbook
  .Sheets("   Global   ").Range("A2:A65536").ClearContents
  For n = 2 To .Sheets.Count
    Cells(n, 1) = .Sheets(n).Name
  Next
End With

End Sub

Private Sub Workbook_NewSheet(ByVal Sh As Object) 'à l'ajout d'un nouvel onglet
For x = 1 To Sheets.Count 'boucle sur tous les onglets
    With Sheets("   Global    ") 'prend en compte l'onglet "   Global    "
        .Range("A2:A" & .Range("A65536").End(xlUp).Row).ClearContents 'efface les anciennes données
        .Cells(x + 1, 1).Value = Sheets(x).Name 'ajoute le nom de l'onglet dans la colonne A
    End With 'finde la prise en compte de l'onglet "   Global    "
Next x 'prochain onglet de la boucle
End Sub

Private Sub Worksheet_Activate()
Range("A2:A" & Range("A65536").End(xlUp).Row).ClearContents 'efface les anciennes données
For x = 1 To Sheets.Count 'boucle sur tous les onglets
    Cells(x + 1, 1).Value = Sheets(x).Name 'ajoute le nom de l'onglet dans la colonne A
Next x 'prochain onglet de la boucle
End Sub

Sub Menu()
Application.CommandBars("Workbook tabs").ShowPopup 500, 200
End Sub

Sub CompteFeuille()
MsgBox "Ce Classeur contient : " & ThisWorkbook.Worksheets.Count & " Feuilles"
End Sub
 
Sub ListeFeuille()
Dim i As Byte
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i, 1) = ThisWorkbook.Worksheets(i).Name
Next
End Sub
 
Sub CompteFeuillemoinsune()
'pour ne pas compter la feuille listing
MsgBox "Ce Classeur contient : " & ThisWorkbook.Worksheets.Count - 1 & " Feuilles"
End Sub

Sub Liens()
Dim tablo As Variant, i As Integer, data As Collection, derval As String
Dim derlig As Integer, cell As Range, ligne As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
tablo = Sheets("ARCHIVES - Historique").Range("A1:F" & Sheets("ARCHIVES - Historique").Range("A20000").End(xlUp).Row)
Set data = New Collection
For i = 1 To UBound(tablo)
    On Error Resume Next
        If tablo(i, 1) = "GRH" Then
        data.Add i, tablo(i, 5) & tablo(i, 6)
        End If
Next i
derlig = Sheets("GRH").Range("B10000").End(xlUp).Row
For Each cell In Sheets("GRH").Range("B2:B" & derlig)
ligne = data(cell.Value & cell.Offset(0, 1).Value)
    If cell.Offset(0, -1).Value <> ligne Then
        cell.Offset(0, -1).Value = ligne
        cell.Hyperlinks.Add Anchor:=cell.Offset(0, -1), Address:="", SubAddress:= _
        "'ARCHIVES - Historique'!A" & ligne
    End If
Next cell
    Columns("A:A").Select
    With Selection.Font
        .Name = "Tahoma"
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
         Selection.Font.ColorIndex = 5
         Selection.Font.Underline = xlUnderlineStyleSingle
    End With
End Sub