Sub macro()
Range("B1").Select
ActiveCell.FormulaR1C1 = "1"
Range("B2").Select
ActiveCell.FormulaR1C1 = "2"
Range("B3").Select
ActiveCell.FormulaR1C1 = "3"
Range("B1:B3").Select
Selection.AutoFill Destination:=Range("B1:B14"), Type:=xlFillDefault
seuil = 5.2 ' qui sera introduit par l'opérateur
seuil = Replace("5.2", ".", ",")
Range("A1:B13").Select
Selection.AutoFilter
ActiveWindow.SmallScroll Down:=-9
ActiveSheet.Range("$A$6:$B$4023").AutoFilter Field:=2, Criteria1:="> " & seuil, _
Operator:=xlAnd
End Sub