Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
If Target.Column <> 15 And Target.Column <> 16 And Target.Column <> 17 And Target.Column <> 18 Then Exit Sub
' Empècher les évènements de se reproduire
Application.EnableEvents = False
' Pour chaque cellule sélectionnée
For Each Rng In Target
Rng.Offset(0, 11) = IIf(Rng.Value = "", "", Rng.Offset(0, 15))
Rng.Offset(0, 15) = IIf(Rng.Value = "", "", Date)
Rng.Offset(0, 15) = IIf(Rng.Value <> "", Rng.Offset(0, 15).Value, "")
If Rng.Offset(0, 11).Value = "" And Rng.Offset(0, 16).Value <> "" Then
Rng.Offset(0, 15).Value = Date
End If
If Rng.Offset(0, 11).Value <> "" And Rng.Offset(0, 15).Value <> "" Then
Rng.Offset(0, 15).Value = Rng.Offset(0, 11).Value
End If
Next Rng
' Ré-activer les évènements
Application.EnableEvents = True
End Sub