J'ai trouvé ça mais quand je met le classeur en partage j'ai une erreur sinon sa marche pouvez-vous m'aider?
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="mot de passe"
If Target.Column = 2 Then
Target.Offset(0, 1) = Date
End If
If Target.Column = 2 And Target = "" Then
ActiveSheet.Unprotect Password:="mot de passe"
Target.Offset(0, 1) = ""
End If
If Target.Column = 12 And Target = "OUI" Then
Target.Offset(0, 1) = Date
ActiveSheet.Protect Password:="mot de passe"
End If
ActiveSheet.Unprotect Password:="mot de passe"
If Target.Column = 12 And Target = "NON" Then
Target.Offset(0, 1) = ""
End If
If Target.Column = 12 And Target = "" Then
Target.Offset(0, 1) = ""
End If
ActiveSheet.Protect Password:="mot de passe"
End Sub