Bonjour Frdl et Wilfried
J'ai considéré que les critères étaient des critères numériques.
Deux exemples dans la macro :
1- Une recherche de nombres dans une plage > ou = à 1000 ;
2- Une recherche de nombres dans une plage compris entre 8000 et 9000 :
3- Le résultat est inscrit en cellule Q3.
Sub CompterNombres()
'Nombre de valeurs dans la plage K3:K30 > ou = à 8000
Range("Q3") = Application.CountIf(Range("K3:K30"), ">=8000")
'Nombre de valeurs dans la plage K3:K30 comprises entre 8000 et 9000
Range("Q3") = Application.CountIf(Range("K3:K30"), ">8000") - Application.CountIf(Range("K3:K30"), ">9000")
End Sub
Cordialement
CBernardT