Set CelDéb = Cel: Set CelCou = Cel: LgnPgBk = 126
NbLMaxParPage = NbLMaxPg: NbLVides = NbLVid
Set Wsh = Cel.Worksheet
With CelDéb.EntireRow.Resize(3000)
.Clear
.RowHeight = 18
End With
With CelDéb.EntireRow.Resize(3000, 27)
.Clear
.RowHeight = 18
End With