[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Worksheet_Change([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
[COLOR=blue]If[/COLOR] Target.Address(0, 0) = [I]"M19"[/I] [COLOR=blue]Then[/COLOR]
[COLOR=blue]Dim[/COLOR] c [COLOR=blue]As[/COLOR] Range
[COLOR=blue]With[/COLOR] Sheets([I]"Feuil2"[/I]).Range([I]"L4:L33"[/I])
.EntireRow.Hidden = [COLOR=blue]False[/COLOR]
[COLOR=blue]If[/COLOR] Target <> [I]"C"[/I] [COLOR=blue]Then[/COLOR]
[COLOR=blue]Set[/COLOR] c = .Find(What:=Target.Value, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=[COLOR=blue]False[/COLOR])
[COLOR=green]'Si Columndifferences ne renvoie rien une erreur est levée[/COLOR]
[COLOR=blue]On[/COLOR] [COLOR=blue]Error[/COLOR] [COLOR=blue]Resume[/COLOR] [COLOR=blue]Next[/COLOR]
[COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] c [COLOR=blue]Is[/COLOR] [COLOR=blue]Nothing[/COLOR] [COLOR=blue]Then[/COLOR] .ColumnDifferences(c).EntireRow.Hidden = [COLOR=blue]True[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]With[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]