Re
If Target.Address = "$D$12" Then 'Affiche si la valeur et dans la liste
If Target = "" Then Exit Sub
With Sheets("Liste") ces la feuil base
Set cel = .Columns("C").Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
If Not cel Is Nothing Then
cel.Offset(0, 1).ClearNotes
Else
MsgBox Target & " non trouvé"
Range("D12").ClearContents
End If
End With
End If
je teste et reviens vers vous