Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If CLng(Sh.Name) <= 12 Then
If Not Intersect(Target, Range("C6:AC475")) Is Nothing Then
Cells(Target.Row, "ao") = Application.UserName
Cells(Target.Row, "ap") = "Le " & Format(Date, "dddd d mmm yyyy") & " à " & Format(Now, "hh:mm:ss")
End If
End If
End Sub