Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Count > 1 And Target.Cells(1, 1).Value <> "" Then Exit Sub
If Target.Cells(1, 1) = "" Then
Target.Offset(0, 1).ClearContents
Exit Sub
End If
For lig = 2 To Sheets("BIBLIOTHEQUE").[A1000000].End(xlUp).Row
If Target.Value = Sheets("BIBLIOTHEQUE").Cells(lig, 1) Then
ActiveSheet.Range("B" & Target.Row & ":B" & Target.Row).Value = _
Sheets("BIBLIOTHEQUE").Range("B" & lig & ":B" & lig).Value
Exit For
End If
Next
End Sub