Bonjour à tous,
J'ai cette macro à chaque onglets suivant (07,08,09,10,11,12,01,02,03,04,05,06)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C6:AC475")) Is Nothing Then
Cells(Target.Row, "ao") = Application.UserName...