Erreur "La méthode range de l'objet worksheet a échoué" et je ne compr

Bonjour,

Voici mon code pour changer la date et l'heure de la dernière mise à jour lors d'un changement effectué dans mon tableau :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
ActiveSheet.Range("C2").Value = "Dernière Mise à jour le " & Format(Now, "DD/MM/YY HH:MM:SS") & " par " & Application.UserName
End Sub

Mais erreur "la méthode range de l'objet worksheet à échoué

Alors que la fonction marche bien puisque et la date se met bien à jour.

Des idées ? :D

Merci de votre aide.