Private Sub Worksheet_Change(ByVal cel As Range)
Application.EnableEvents = False [COLOR="Red"]'désactive l'action des évènements[/COLOR]
With Sheets("Feuil3")
[B4:E1000].Copy .[A1] [COLOR="Red"]'copie du tableau vers la cellule A1 de la Feuil3[/COLOR]
For Each cel In Sheets("MEILLEURS TEMPS").Range("A2,A11,A20,A29,A38,A47")
.[A1].AutoFilter Field:=1, Criteria1:=cel [COLOR="Red"]'filtrage en Feuil3 selon critère[/COLOR]
.[B2:D1000].SpecialCells(xlVisible).Copy .[A1001] [COLOR="Red"]'copie de la plage filtrée vers A1001[/COLOR]
.[A1001:C2000].Sort Key1:=.[C1001], Order1:=xlAscending, Key2:=.[A1001], Order2:=xlAscending, Header:=xlNo [COLOR="Red"]'tri ascendant[/COLOR]
cel.Offset(, 1).Resize(8, 3).Value = .[A1001:C1008].Value [COLOR="Red"]'copie des 8 premières lignes de la plage vers la feuille MEILLEURS TEMPS[/COLOR]
.[A1].AutoFilter [COLOR="Red"]'désactivation du filtre[/COLOR]
Next
.[A:D].Clear [COLOR="Red"]'efface tout en Feuil3[/COLOR]
End With
Application.EnableEvents = True
End Sub