XL 2010 Fichier log

[team18fr]

Bonjour,
Dans mon classeur excel j'ai mis ce code que j'ai trouvé sur un autre forum pour enregistrer les modifications de mes feuilles sur une autre feuille.
Cela marche bien mais pour commencer cela ne me donne pas l'ancienne valeur et si plusieurs cellules sont sélectionnée ça bug.

Dim PreviousValue
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> PreviousValue Then
Sheets("log").Cells(65000, 1).End(xlUp).Offset(1, 0).Value = _
Application.UserName & " a modifie la cellule " & Target.Address _
& " de " & PreviousValue & " en " & Target.Value & " a: " & Format(Time, "hh:mm:ss") & " le: " & Format(Date, "dd/mm/yy")
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PreviousValue = Target.Value
End Sub

Je met ce code dans chaque feuille que je veux contrôler.