Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:A10], Target) Is Nothing And Target.Count = 1 Then
p = Application.Match(Target, Application.Index([Data], , 1), 0)
If Not IsError(p) Then Sheets("BD").Range("data").Cells(p, 2).Copy Target.Offset(, 2)
End If
End Sub
Private Sub Worksheet_Activate() ' pour maj si changement dans la BD
Application.ScreenUpdating = False
For Each c In [A2:A10]
p = Application.Match(c, Application.Index([Data], , 1), 0)
If Not IsError(p) Then Sheets("BD").Range("data").Cells(p, 2).Copy c.Offset(, 2)
Next c
Application.ScreenUpdating = True
End Sub