Sub FiltrerEffacer()
Application.ScreenUpdating = False
With Range("K3:K" & Cells(Rows.Count, "B").End(xlUp).Row)
.AutoFilter 1, "*" 'filtre automatique
Intersect(.Offset(1).SpecialCells(xlCellTypeVisible) _
.EntireRow, [D:J]).ClearContents
End With
ActiveSheet.AutoFilterMode = False 'désactive le filtre
End Sub