Sub SupprNum()
Dim D As New Scripting.Dictionary, V, L As Long
For Each V In Array("A100034", "A100058", "A100363")
D.Add V, Null: Next V
With ActiveSheet
For L = .UsedRange.Row + .UsedRange.Rows.Count - 1 To 2 Step -1
If D.Exists(.Cells(L, 2).Value) Then .Rows(L).Delete
Next L: End With
End Sub