Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim cell As Range
' Spécifiez la plage de la liste déroulante dans laquelle vous voulez appliquer la vérification
Set rng = Me.Range("A1:A10") ' Remplacez A1:A10 par la plage appropriée
' Vérifiez si la modification a été apportée à la plage spécifiée
If Not Application.Intersect(Target, rng) Is Nothing Then
Application.EnableEvents = False
' Récupérez l'heure actuelle
Dim currentTime As Date
currentTime = Time
' Parcourez chaque cellule de la plage
For Each cell In rng
' Si la cellule n'est pas vide et que l'heure actuelle est supérieure à l'heure saisie, effacez la valeur de la cellule
If Not IsEmpty(cell) And currentTime >= cell.Value Then
cell.ClearContents
End If
Next cell
Application.EnableEvents = True
End If
End Sub