Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dim Plageconcernée
Set Plageconcernée = Sheets("Lundi").Range("D87:D94,D99:D106,D111:D118,D123:D130,D135:D142,D147:D154,O87:O94,O99:O106,O111:O118,O123:O130,O135:O142,O147:O154,Z87:Z94,Z99:Z106,Z111:Z118,Z123:Z130,Z135:Z142,Z147:Z154")
If Not Intersect(plageconcernée, Target) Is Nothing Then UserForm1.Show
End Sub