Bonjour,
Pour faire simple et rapide, j'ai ajouté en jaune quelques informations sur la Feuil1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range
On Error Resume Next
Set plage = Intersect(Target, Range("C5:C11"))
If plage Is Nothing Then Exit Sub
With Sheets("Feuil2")
For Each cel In plage
.Cells(Cells(1, 2), Cells(cel.Row, 1)) = cel.Value
Next
End With
End Sub
Tu peux aussi changer la valeur de A1 en mettant
=aujourdhui()