Sub Vivons_Cachés_Vivons_Heureux_Bis()
Dim ws As Worksheet, Vsemaine$, VNomS$
Vsemaine = DatePart("ww", Date)
VNomS = "S" & Vsemaine & "-" & Year(Date) & ",Statistiques"
For Each ws In Worksheets
If InStr(VNomS, ws.Name) = 0 Then
ws.Visible = xlSheetHidden
End If
Next
End Sub