Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Ro&
Application.EnableEvents = False
On Error GoTo arret 'juste au cas ou il y aurait une erreur pour réenclencher les events
[A4].Resize(Cells(Rows.Count, "A").End(xlUp).Row + 4, 3).ClearContents
Set c = Sheets("BDD").Range("A:A").Find(Target.Value, LookIn:=xlValues)
If Not c Is Nothing Then
Ro = c.Row
With Sheets("BDD")
With .Range("A" & Ro, .Cells(Rows.Count, "c").End(xlUp))
.AutoFilter Field:=1, Criteria1:=Target.Value
.Copy Destination:=[A4]
.AutoFilter
End With
End With
End If
arret:
Err.Clear
Application.EnableEvents = True
End Sub