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,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
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