Sub FiltrerEffacer()
Application.ScreenUpdating = False
Feuil1.Activate 'CodeName de la feuille
With Range("B3", Cells(Rows.Count, "B").End(xlUp))
.AutoFilter 1, "Samedi", xlOr, "Dimanche" 'filtre automatique
Intersect(.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow, [D:K]).ClearContents
End With
ActiveSheet.AutoFilterMode = False 'désactive le filtre
End Sub