Private Sub Worksheet_Change(ByVal Target As Range)
'si la valeur changée est en A1
Application.EnableEvents = False
ActiveSheet.Unprotect
If Not Intersect(Target, [A1]) Is Nothing Then
Select Case [A1]
Case 1
[A3] = 0
[A4] = 0
[A5] = 0
[A3].Locked = True
[A4].Locked = True
[A5].Locked = True
Case 2
[A3] = ""
[A4] = 0
[A5] = 0
[A3].Locked = False
[A4].Locked = True
[A5].Locked = True
Case 3
[A3] = ""
[A4] = ""
[A5] = 0
[A3].Locked = False
[A4].Locked = False
[A5].Locked = True
Case 4
[A3] = ""
[A4] = ""
[A5] = ""
[A3].Locked = False
[A4].Locked = False
[A5].Locked = False
End Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
Application.EnableEvents = True
End Sub