VBA sur filtre avec heures

Bonjour,

J'ai un tableau pour lrquel j'ai crée un bouton afin de visualiser d'un coup les personnes qui sont au dessus de 200:00 heures (condition inscrite dans la cellule AJ1).

Mon souci c'est que je ne sait pas comment faire pour que la macro s'adapte à la variable AJ1 car j'ai directement mis les 200:00 dans la macro.

Merci d'avance pour vos solutions.

Bonjour,

Par exemple :

Private Sub ToggleButton5_Click()
If ToggleButton5.Value Then
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=30, Criteria1:= _
        ">" & CLng(Range("AJ2").Value), Operator:=xlAnd
Else
   ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=30
End If
End Sub

Bonne journée

Merci Cousin Hub, c'est nickel.