VBA : SUM.IF avec critère date variable

Bonjour,

J'essaie de faire rentrer dans la dernière case vide de ma colonne H une formule SUMIF, mais j'ai un problème avec mon critère :

C'est une date (format jj/mm/aaaa), précédemment rentrée par l'utilisateur final du code, dans une TextBox1 de mon programme et située dans la cellule A de la même ligne.

-> J'ai essayé diverses lignes de code mais j'ai à chaque fois des problèmes de types, et je suis bloqué au code ci-dessous :

Dim jour As String
jour = "CDate(TextBox1)"
Range("H65536").End(xlUp).Offset(1, 0).Formula = "=SUMIF($A$4:$A$20," = " & jour & " * ",$F$4:$F$20)"

-> S'il n'y a pas de solution , est-il possible de mettre directement en critère la valeur de la cellule A ( sachant que la date y est rentrée précédemment dans le programme ?

Merci d'avance pour votre aide,

Arthur