Merci Hecatonchire
C'est cela que je souhaitais, ce matin en arrivant j'ai essayé .... WorksheetFunction.CountIfs(Range("A1:A6"), ">=" & Date(Annee, mois, 1) ...
cela plantait du coup c'est bien ... DateSerial(intAnnee, intMois, 1) * 1 ... qu'il me fallait
Désolé si je n'ai pas été assez...