Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AE5")) Is Nothing Then
Select Case Range("AE5")
Case Is = 9
Exit Sub
Case Is <> 9
zaza = MsgBox("Si vous changez la durée d'utilisation, le montant de AS17 sera réinitialisé à zero ! ", vbYesNo + vbQuestion, "Excel")
If zaza = vbYes Then
Range("AS17") = 0
Range("AE5") = 9
Columns("AT:AT").EntireColumn.Hidden = True
Else
Exit Sub
End If
End Select
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)