macro insetion date et utilisateur qui se decuple

Bonjour,

Desole mon titre est un peu vague, je m explique

J ai deux macros de sauvegarde apres modif ou creation et pour ces macros, je sauvegarde la date et l haure et le nom de l utilisateur.

Voici l une des deux macros, elles sont identiques :

Sheets("attente").Select
Application.ScreenUpdating = False
Sheets("modifuniq").Select
Range("A3:X522").Select
Selection.Copy
Sheets("creationmodif").Select
Range("A3").Select
ActiveSheet.Paste
Sheets("recherche").Select
Range("A3").Select
ActiveSheet.Paste
Sheets("Ouverture").Select
Application.CutCopyMode = False
Range("C6😀6").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("C7") = Application.UserName
Range("E1").Select
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub

Le probleme est que quand j execute des macros, ou l interet de connaitre le nom d utilisateur et la date n est pas souhaité, le nom et la date change quand meme,
ex macro ci dessous ou je ne demande rien et ou le chagement se produit quand meme :

Application.ScreenUpdating = False
Sheets("complet").Select
ActiveSheet.Unprotect
ActiveWindow.ScrollRow = 3
Range("B3").Select
Sheets("creationmodif").Select
Range("A3:X525").Select
Selection.Copy
Sheets("complet").Select
Range("A3").Select
ActiveSheet.Paste
Range("B500").Select
ActiveWindow.SmallScroll Down:=-500
ActiveWindow.ScrollColumn = 3
Application.CutCopyMode = False
Range("B3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Application.ScreenUpdating = True
End Sub

Je ne comprend vraiment pas pourquoi, il y a peut etre quelque chose a mettre pour verouiller mes demandes a quelques macro uniquement ?

Merci d'avance