Private Sub Worksheet_Change(ByVal Target As Range)
If (Target(1, 1).Address = "$D$9" And Target(1, 1).Value = "Niveau 1") Or Not Intersect(Target, Range("$B$26:$I$35")) Is Nothing Then
N1TR
N1D
ElseIf (Target(1, 1).Address = "$D$9" And Target(1, 1).Value = "Niveau 2") Or Not Intersect(Target, Range("$B$40:$I$49")) Is Nothing Then
N2TR
N2D
End If
End Sub