Sub macro2()
Dim RngProc As Range, RngPlan As Range, Cel As Range, L
With Worksheets("Procédure")
Set RngProc = .[A30].Resize(.Cells(.Rows.Count, "A").End(xlUp).Row - 29)
End With
Set RngPlan = Worksheets("Plan Sommaire détaillé (2)").[B10:B200]
For Each Cel In RngProc
L = Application.Match(Cel, RngPlan, 0)
If Not IsError(L) Then RngPlan(L, 1).EntireRow.Delete
Next Cel
End Sub