'***********************************************
' Début Report Tranche LUNDI
' Equipe 1
If Not Application.Intersect(Target, .Range("D14,D21,D28,D35,D42,D49,D56")) Is Nothing Then Report Target
' Equipe 2
If Not Application.Intersect(Target, .Range("D70,D77,D84,D91,D98,D105,D112")) Is Nothing Then Report Target
' Equipe 3
If Not Application.Intersect(Target, .Range("D126,D133,D140,D147,D154,D161,D168")) Is Nothing Then Report Target
' Equipe 4
If Not Application.Intersect(Target, .Range("D182,D189,D196,D203,D210,D217,D224")) Is Nothing Then Report Target
' Equipe 5
If Not Application.Intersect(Target, .Range("D238,D245,D252,D259,D266,D273,D280")) Is Nothing Then Report Target
' Equipe 6
If Not Application.Intersect(Target, .Range("D294,D301,D308,D315,D322,D329,D336")) Is Nothing Then Report Target
' Equipe 7
If Not Application.Intersect(Target, .Range("D350,D357,D364,D371,D378,D385,D392")) Is Nothing Then Report Target
' Equipe 8
If Not Application.Intersect(Target, .Range("D406,D413,D420,D427,D434,D441,D448")) Is Nothing Then Report Target
' Fin Report Tranche LUNDI
'***********************************************