Comment compter le nbr de cell d'une col, sup à une cell en data validation

Bonjour j'aimerais compter le nombre de cellules de la colonne D supérieures à une valeur d'une cellule (A1) qui est en data validation,

Sub Count()

Dim nbr As Integer

nbr = Application.CountIf(Range("D2:D1000"), ">79")

MsgBox ("There are " & nbr & " departments where life expectancy exceeds 79 years.")

End Sub

Je sais que ce code permet de compter le nombre de cellules supérieures à 79, mais qu'en est-il si en cellule A1 par exemple, cette valeur peut changer avec une data validation?

Je vous remercie d'avance,

Cordialement

PS : C'est le worksheet "Count"

Bonjour, désolé, je n'ai rien compris.
Dans quelle feuille se trouve cette cellule A1 et que signifie ce "data validation" ?

Bonjour,

si tu dois mettre à jour après modif, tu dois utiliser l'événement Change sur cette cellule pour relancer ta macro.
eric