Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [I1]) Is Nothing Then
[I3:N1000].ClearContents
Application.ScreenUpdating = False
DL = Range("B65500").End(xlUp).Row
T = Range("B3:G" & DL): Ligne = 3: Ville = Target
Application.EnableEvents = False
For i = 1 To UBound(T)
If T(i, 3) = Ville Or T(i, 4) = Ville Then
For Col = 9 To 14
Cells(Ligne, Col) = T(i, Col - 8)
Next Col
Ligne = Ligne + 1
End If
Next i
Tri
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub