Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, cel As Range, poste As Range, premaddress, derlig As Long
Application.EnableEvents = False
Set poste = Range("d2")
With Feuil2
derlig = .Range("a" & Rows.Count).End(xlUp).Row
Set plage = .Range("a2:a" & derlig)
End With
Set cel = plage.Find(poste, , xlValues)
If Not cel Is Nothing Then
premaddress = cel.Address
Do
cel.Offset(0, 0).Copy Range("a" & Rows.Count).End(xlUp)(2)
cel.Offset(0, 1).Copy Range("b" & Rows.Count).End(xlUp)(2)
Set cel = plage.FindNext(cel)
Loop While Not cel Is Nothing And cel.Address <> premaddress
End If
Application.EnableEvents = True
End Sub