Sub VerificationSaisie()
Dim ligne As Long
ligne = Application.IfError(Application.Match(Sheets("d").Range("bc8"), Sheets("DATA").Columns("a"), 0), 0)
If ligne = 0 Then
Application.EnableEvents = False
Sheets("Feuil1").Range("d156").ClearContents
Application.EnableEvents = True
Beep
End If
End Sub