Bonjour Caje17
Ce qu'il faut que tu fasses :
- Pour chaque cellule à verrouiller -> Onglet Accueil -> Groupe : Cellules ->Menu : Format -> Verrouiller la cellule
Ensuite ce code fonctionnera
Private Sub Worksheet_Change(ByVal Target As Range)
' Vérifier que la cellule modifiée est celle souhaitée
If Target.Address <> "$U$1" Then Exit Sub
' Si oui
' If range("C1") = range("U1") then
' ou
If DateDiff("d", Range("C1"), Range("U1")) = 0 Then
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
End If
End Sub
Bon on sait quand même que tu es chez Total
A+