Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin2: If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [B2]) Is Nothing Then
Application.ScreenUpdating = False
[A2:D7].Interior.Color = RGB(200, 200, 200)
If Target = "Superviseur" Then
Range("B2,B3,D2").Interior.Color = vbWhite
ElseIf Target = "Cadre" Then
Range("B2,B5,C6,D5").Interior.Color = vbWhite
End If
End If
Fin2:
Application.ScreenUpdating = True
End Sub