Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Or Target.Value = "" Then Exit Sub 'que colonne A et non vide
lig = Application.Match(Target.Value, [A1:A5], 0) 'renvoie le N° de ligne
If IsNumeric(lig) Then Target.Value = Cells(lig, 2) 'si trouvé on copie
End Sub