Bonjour,
On suppose que la cellule est déverrouillée et rouge, la feuille protégée.
A la saisie dans une cellule rouge, procédure Change qui se déclenche :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Interior.Color = vbRed Then
Me.Unprotect "ADMINTECH"
Target.Interior.Color = vbGreen
Target.Locked = True
Me.Protect "ADMINTECH"
End If
End Sub
Elle déprotège la feuille, met la cellule en vert, verrouille la cellule, reprotège la feuille.
Procédure à placer dans le module de la feuille.
Cordialement.