LE PROBLEME

Les données du classeur présente des coupure de page ou autre et il faut arriver à une présentation ininterrompue.

LE CODE EN VBA

Sub sup_lignes()

Application.ScreenUpdating = False

a = Range(« A1 »).SpecialCells(XlCellType.xlCellTypeLastCell).Row – 1

Do While a > 1
While Range(« B » & a) = «  » Or Range(« B » & a).Value = « Code »
Rows(a & « : » & a).Select
Selection.Delete Shift:=xlUp
Wend

a = a – 1

Loop

Application.ScreenUpdating = True

End Sub