Sub test()
Dim i&, c&, DerC&
'Permet de faire le sous total des colonnes L et O
[A1].CurrentRegion.Subtotal GroupBy:=10, Function:=xlSum, TotalList:=Array(12, 15), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
'Supprime la colonne K
Columns("K").EntireColumn.Delete
DerC = Cells(1, Columns.Count).End(xlToLeft).Column
For c = DerC To 1 Step -1
'Pour chaque colonne, si la dernière ligne est 1, donc le reste est vide
'Alors on supprime la colonne
If Cells(Rows.Count, c).End(xlUp).Row = 1 Then Columns(c).EntireColumn.Delete
Next
End Sub