[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Worksheet_Change([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
[COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] Intersect(Target, Range([I]"C7:AJ7,C18:AJ18,C37:AJ37,C48:AJ48"[/I])) [COLOR=blue]Is[/COLOR] [COLOR=blue]Nothing[/COLOR] [COLOR=blue]Then[/COLOR]
[COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] Target.Comment [COLOR=blue]Is[/COLOR] [COLOR=blue]Nothing[/COLOR] [COLOR=blue]Then[/COLOR] Target.Comment.Visible = Target = [I]"OUI"[/I]
[COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]