Recherchev et commentaire

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$15" And Target.Count = 1 Then
    If Target <> "" Then
        Set c = Cells(Application.Match(Target, Range("D13:D20"), 0) + 12, 5)
        Application.EnableEvents = False
        c.Cells.Copy Target.Offset(2, 0)
        Application.EnableEvents = True
    Else
        With Target.Offset(2, 0)
            .Value = ""
            On Error Resume Next
            .Comment.Delete
        End With
    End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$15" Then
    If Target <> "" Then
       [Liste].Find(Target, LookAt:=xlWhole).Offset(, 1).Copy Target.Offset(2, 0)
    Else
       Target.Offset(2, 0).Clear
    End If
  End If
End Sub