Bonjour,
Dans le module Thisworkbook le code suivant :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("F6")) Is Nothing Then
For Each Sh In Worksheets
Sh.Visible = True
If Sh.Name Like "semaine*" Then
If Val(Right(Sh.Name, 1)) > Target Then
Sh.Visible = False
End If
End If
Next Sh
End If
End Sub