Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
If R.Count > 1 Then Exit Sub
If Not Intersect(R, [B2:B7]) Is Nothing And R <> "" Then
Sheets(R.Text).Visible = -1: Sheets("ACCUEIL").Visible = 0
Else
If Sh.Name <> "ACCUEIL" Then _
If R.Address = "$A$1" Then [A2].Select: Sheets("ACCUEIL").Visible = -1: Sh.Visible = 0
End If
End Sub