Sub test_IV()
Dim LE_CRIT
LE_CRIT = ActiveSheet.Range("J2").Value
If MsgBox("Si Click OUI | Le critère est : >= " _
& LE_CRIT & Chr(13) & " Click NON | Le critère est : <= " _
& LE_CRIT, vbQuestion + vbYesNo, "Filtrage") = vbYes Then
Selection.AutoFilter
Selection.AutoFilter 6, ">=" & LE_CRIT
Else
Selection.AutoFilter
Selection.AutoFilter 6, "<=" & LE_CRIT
End If
End Sub