Sub Purgeur()
'Permet de purger des lignes inutiles dans un Tableau en références relatives
'à partir de la cellule active
'Modifier l'offset en fonction du besoin. Fin de macro par test de cellule active vide
Do Until ActiveCell.Value = ""
Range(ActiveCell, ActiveCell.Offset(16, 11)).Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(1, 0).Select
Loop
End Sub