Historique de tache

Bonjour,
j'ai une macro qui est:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Value = "X" Or Target.Value = "x" Then
Range("G" & Target.Row).Value = Range("F" & Target.Row).Value
End If
End Sub

je voudrais aussi que celle ci, quand on met X dans la colonne corespondante, renvoi le texte qui est marqué dans la colonne I dans une autre feuille avec la date du jour ou le x à était marqué et que cela reste en mémoire: que a chaque fois que l'on mette un x dans la colonne la tache efectuer se mette dans une autres feuille avec dans la colonne à coté la date du jour et cela afin de faire une historique de tache.
Je vous remerci d'avance
bruno