Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim tablo(), s As Object, n As Integer
ReDim tablo(Sheets.Count - 2)
For Each s In Sheets
If s.Name <> Sh.Name Then
tablo(n) = s.Name
n = n + 1
End If
Next
Sh.[A1] = "Onglets": [A1].Font.Bold = True
If n Then Sh.[A2].Resize(n) = Application.Transpose(tablo)
Sh.Range("A" & n + 2 & ":A" & Rows.Count).ClearContents
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
On Error Resume Next
Sh.[A1].Select
Sheets(Target.Text).Activate
End If
End Sub