Private Sub Worksheet_Activate()
Dim i As Integer
Range("H2:H" & Rows.Count).ClearContents 'RAZ
For i = 1 To Sheets.Count
If Sheets(i).Name <> Me.Name Then Cells(i + 1, "H") = Sheets(i).Name
Next
[H:H].Sort [H1], Header:=xlYes 'tri alphabétique
Worksheet_Change [A1] 'mise à jour
End Sub