Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' If Target.Count = 1 Then
If Target.Address = "$A$5" Then
CreePlan
End If
If Not Intersect([B8:NN17,B19:NN28,B30:NN32,B34:NN42], Target) Is Nothing Then
AfficheMenu
CreeBD
End If
' End If
End Sub