If Not IsError(Application.Match([E15], Range("BD_PC"), 0)) Then
MsgBox "Le matériau est déjà utilisé", vbCritical, "Analyse de la base de donnée"
Else
Range("A2:C2").Select
Selection.Copy
Sheets("BD_matières").Select
Range("A" & [num_ligne_A] + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Consultation_BD").Select
Range("E14").Select
Application.CutCopyMode = False
Selection.ClearContents
End If