Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastLigne As Range
If Target.Address <> "$A$1" Then Exit Sub si la saisie n'est pas en A1
'recherche de la dernière date dans la colonne C
Set LastLigne = Range("C65536").End(xlUp)
'ajoute la valeur saisie ligne suivante la derniere ligne remplie
LastLigne.Offset(1, 0) = Target.Value
End Sub