Merci pour toutes vos propositions.
Pour ma part, en partant de l'idée de JeanPierre, j'étais parti sur avec truc du style (je dis bien du style parce qu'évidement, ça ne fonctionne pas) :
Dim derniereligne As Integer
dim janvier as variant
derniereligne = Range("a65535").End(xlUp).Row
janvier = [(SumProduct((Month($A$1:$A$derniereligne) = 1) * 1)]
Cells(1, 2).Value = janvier
Votre expertise s'il vous plait ?
Je dois pas en être loin non ?