Option Explicit
Private Sub Worksheet_Activate()
Dim nf As String, i As Long 'ou Byte
[listing_onglets].Clear
For i = 2 To Sheets.Count
nf = Sheets(i).Name
Me.Hyperlinks.Add Cells(i + 3, 3), "", nf & "!A1", nf
Next
[listing_onglets].Sort [listing_onglets].Item(1, 1), Header:=1
End Sub