Sub Filtrer_AdrENv()
'
ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
ActiveSheet.Range("$B$31:$V$290").AutoFilter Field:=21, Criteria1:="<>"
ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
ActiveSheet.Range("$B$31:$V$2000").AutoFilter Field:=21
End Sub