Bonjour
Essaye ce code (à placer dans la feuille concernée)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G:G")) Is Nothing Then
ActiveSheet.Unprotect
If Target.Value = "Clôturé" Then
Target.Offset(0, 4).Locked = True
Target.Offset(0, 5).Locked = True
Else
Target.Offset(0, 4).Locked = False
Target.Offset(0, 5).Locked = False
End If
ActiveSheet.Protect
End If
End Sub
Amicalement
Nad