Bonsoir,
le problème est que vous recherchez la première cellule non vide de la colonne A, cette recherche vous donne un numéro de ligne et vous essayez de donner une valeur à ce numéro de ligne !
VBA constate que le .Row n'a rien à faire ici pour une attribution de valeur !
Comme vous le montre i20100, il vous faut utiliser deux "range" dont l'un dépend du résultat de la recherche de l'autre, et alors là vous pouvez lui attribuer une valeur.
Par contre moi j'avais écris ceci :
Cells(Range("A65355").End(xlUp).Row + 1, 1).Value = jour
Avec un +1 afin d'écrire sur la ligne vide du dessous et non pas sur la dernière ligne non vide, ce qui écrase les données précédentes.
@ bientôt
LouReeD