Dim zone As Range
tablo = Sheets("Par_Bureau local").Range("Z4:Z" & Sheets("Par_Bureau local").Range("Z" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1) - 1
If tablo(n, 1) = tablo(n + 1, 1) Then
If Not zone Is Nothing Then
Set zone = Application.Union(zone, Rows(n))
Else
Set zone = Rows(n)
End If
End If
Next
Application.ScreenUpdating = False
zone.Delete
Application.ScreenUpdating = True