Sub Filtre_des_tableaux()
'
' Macro2 Macro
'
Application.ScreenUpdating = False
Sheets("TCD").Select
ActiveWorkbook.RefreshAll
nbval = Sheets("TCD").Range("nbval").Value
For v = 10 To nbval + 9
'
Range("D" & v).Select
Selection.ShowDetail = True
Sheets("TCD").Select
Next v
For x = 1 To nbval
y = x + 9
Sheets("Feuil" & x).Select
ActiveSheet.ListObjects(1).Range.AutoFilter Field:=9, Criteria1:=">" & Sheets("TCD").Range("G" & y).Value, _
Operator:=xlAnd
ActiveWorkbook.RefreshAll
Next x
Application.ScreenUpdating = True
Sheets("TCD").Select
End Sub