Salut l'équipe,
For x = 1 To Range("B" & Rows.Count).End(xlUp).Row
Cells(Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Find(what:=Cells(x, 2), lookat:=xlWhole, searchdirection:=xlNext).Row, 1).Delete shift:=xlUp
Next
Et, en plus, ça marche...
A+