Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("Marque,Gamme"), Target) Is Nothing And Target.Count = 1 Then
[A2:AL100000].Sort Key1:=[A2], Key2:=[B2]
[A1:AL100000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[ba1], Unique:=True
End If
' changement de date si modification sur la voiture
If Not Intersect(Target, Range("A:K,M:S")) Is Nothing Then
Range("AW" & Target.Row) = VBA.Date
Target.Font.ColorIndex = 3
End If
End sub