Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range, Lg As Long, Ville As String
If Target.Address = "$B$1" Then
Ville = UCase(Range("B1"))
Lg = Range("A1").End(xlDown).Row + 1
Range("A12:C" & Rows.Count).ClearContents
For Each Cel In Feuil1.Range("E:E").SpecialCells(xlCellTypeConstants)
If UCase(Cel) = Ville Then
Range("A" & Lg & ":C" & Lg).Value = Feuil1.Range("A" & Cel.Row & ":C" & Cel.Row).Value
Lg = Lg + 1
End If
Next
End If
End Sub