Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D5:D23]) Is Nothing Then 'vérifie si la modif a eu lieu en D5:D23
If Application.CountIf([O5:O11], Target) Then 'CountIf = équiv de la fonction NB.SI
Target.Offset(0, 3) = Cells(Application.Match(Target, [O1:O11], 0), "P") 'Match = équiv de la fonction ... EQUIV
Else
Target.Offset(0, 3) = Now 'insère date et heure
End If
End If