Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
If Right(Feuille.Name, 1) <> 1 And Left(Feuille.Name, 3) <> Left(Sh.Name, 3) Then
Feuille.Visible = xlSheetHidden
Else
Feuille.Visible = xlSheetVisible
End If
Next Feuille
End Sub