toto = Application.InputBox("Veuillez renseigner le seuil positif pour le tri", Type:=1)
If toto = False Then Exit Sub
toto1 = Application.InputBox("Veuillez renseigner le seuil négatifs pour le tri.", Type:=1)
If toto1 = False Then Exit Sub Else: toto1 = -(toto1)
ActiveSheet.Range("A1").AutoFilter Field:=8, Criteria1:=">=" & CDbl(toto), _
Operator:=xlOr, Criteria2:="<=" & CDbl(toto1)