Re : Date auto dans 1 cellule lors saisie dans autrres cellules
Pas sûr d'avoir compris ton problème
Si tu rajoutes la ligne en gras (en remplaçant toto par ton mot de passe) est-ce que ça le fait?
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="toto", UserInterfaceOnly:=True 'Enlève et remet le mot de passe
If Not (Intersect(Target, Range("plage1,plage2")) Is Nothing) Then
Range("M" & Target.Row) = CDate(Day(Now) & "/" & Month(Now) & "/" & Year(Now))
End If
End Sub