Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="bobo"
'------
ActiveSheet.Cells.Locked = True
ActiveSheet.Range("E5").Locked = False
ActiveSheet.Range("I5").Locked = False
ActiveSheet.Range("E9").Locked = False
Range("I9").Locked = IIf(Range("E9").Value = "virement bancaire", False, True)
Range("I11").Locked = IIf(Range("E9").Value = "virement bancaire", False, True)
'
ActiveSheet.Protect Password:="bobo"
Application.ScreenUpdating = True
Exit Sub
'-----
Fin:
ActiveSheet.Protect Password:="bobo"
Application.ScreenUpdating = True
End Sub