Private Sub Worksheet_Change(ByVal Target As Range)
Dim Valeur As String
If Not Intersect(Target, Range("i1")) Is Nothing Then
Valeur = Replace(CDbl([i1]), ",", ".")
ActiveSheet.ListObjects("Ta").Range.AutoFilter Field:=7, _
Criteria1:=">=" & Valeur, Operator:=xlAnd, Criteria2:="<=" & Valeur
End If
End Sub