Sub suppsemaines()
Vsemaine = DatePart("ww", Date)
VNomS = "S" & Vsemaine & "-" & Year(Date)
For Each VFeuille In ThisWorkbook.Worksheets
VFeuille.Name = Trim(VFeuille.Name)
With VFeuille
If .Name <> VNomS And .Name <> "Statistiques" Then
.Visible = xlSheetHidden
End If
End With
Next
End Sub