Sub Supprimer_A()
Dim ws As Worksheet, x As Range
If [num_ligne_A] = 0 Then Exit Sub
If MsgBox("Confirmation de la suppression du matériau", vbYesNo, "Suppression") = vbYes Then
For Each ws In Worksheets
If ws.Name <> "Consultation_BD" Then
Set x = ws.Range("A:A").Find([NUM].Value, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then ws.Rows(x.Row).Delete
End If
Next ws
End If
End Sub