Sub Sup_ligne()
Dim tablo, i As Long, j As Integer
Application.ScreenUpdating = False
tablo = Range("J1:J" & Range("J65536").End(xlUp).Row)
For j = 1 To UBound(tablo)
For i = Range("O65536").End(xlUp).Row To 14 Step -1
If tablo(j, 1) = Cells(i, 15) Then Rows(i).Delete
Next i
Next j
Application.ScreenUpdating = True
End Sub