Bonjour,
J'ai eu beau chercher sur pleins de forum et le net mais je ne trouve pas de solution à mon problème…. voici ma requête :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:Q")) Is Nothing Then Exit Sub
Target(1, 30) = Format(Now, "YYYY/MM/DD")...