Bonjour à tous,
voilà, j'ai une formule de ce type :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 8) = "" Then Target.Offset(0, 8) = Date: Exit Sub
If Target.Column = 5 And Target.Offset(0, 3) = ""...