Suppression de lignes si une cellule affiche une valeur supérieur à X heure

Bonjour à tous,

Voici mon objectif : Si dans la colonne C (ou E, mais pour l'instant j'essaye avec C) j'ai une cellule qui affiche un temps supérieur à 01:45:00 alors supprimer la ligne.

J'ai écris ce code mais ça ne fonctionne pas D'où ma petite demande d'aide

Sub supression_tps()

Application.ScreenUpdating = 0: Application.Calculation = -4135
      Dim dlig&, lig&: dlig = Cells(Rows.Count, 3).End(xlUp).Row
     For lig = dlig To 2 Step -1
            If Cells(lig, 3) = ">01:45:00" Then Rows(lig).Delete
      Next lig
 Application.Calculation = -4105

End Sub

Bonjour

Peut-être ceci :

If Cells(lig, 3) > "01:45:00" Then Rows(lig).Delete

A +

Bonjour !

Ce code me supprime 2600 lignes sur 2800 alors que je n'ai qu'une dizaine de temps supérieur à 1h45

Voici un fichier pour que vous puissiez mieux vous rendre compte

Bonne journée

J'ai trouvé ! Il suffisait de déclarer une variable Date

Sub supression_tps()

  Dim dlig&, lig&: dlig = Cells(Rows.Count, 3).End(xlUp).Row
  Dim temps As Date: temps = "01:09:00"
  For lig = dlig To 2 Step -1
    If Cells(lig, 3) > temps Then Rows(lig).Delete
  Next lig

End Sub

Bonne journée !