Problème countif VBA

Bonjour,
Désolé je viens en appel à quelqu'un qui pourrait me débloquer. J'essai d'exécuter la macro suivante:
Sub test()
a = 2
While donneessauvegardees.Cells(a + 37, 1).Value <> ""
a = a + 37
Wend
donneessauvegardees.Range("F2").Value = WorksheetFunction.CountIf(Range(donneessauvegardes.Cells(3, 4), donneessauvegardees.Cells(a, 4)), janvier.range("D2"))
End Sub

Je reçois le message d'erreur suivant : erreur d'exécution 424 objet requis

En gros j'essai juste de tester si mon countif marche en affichant le résultat dans la case F2 de la page donneessauvegardees. En théorie la macro devrait aller dans la page janvier et prendre une date. Puis dans la page donneessauvegardees il devrait me compter le nombre de fois ou apparaît cette date dans la colonne définie par Range(donneessauvegardes.Cells(3, 4), donneessauvegardees.Cells(a, 4))

Je vous met les screenshots des deux pages concernées au cas ou. Sachant que la page données sauvegardées est une succession de tableaux des mois de janvier sur les colonnes allant de A à D. Il y a donc un tableau, deux lignes d'espace, puis un autre tableau, deux lignes d'espaces etc etc. Voilà merci d'avance, je pense que ce n'est pas bien compliqué mais la je bloque depuis trop longtemps.