Suppression lignes et colonnes d'un tableau

Bonjour,

voici en fichier joint, un tableau de données,

j'aimerais pouvoir supprimer tout les ligne et colonne dont le total est 0 (juste celle du tableau car il y auras d'autre données a coté et je ne veut pas les supprimer.

A coté du tableau, j'ai donc mis le resultat souhaité.

Merci a vous

cordialement

Bonjour,

Voici le code à mettre en VBA qui te fera cela.

Sub test()
'Macro Dan le 14/04/2010
'http://forum.excel-pratique.com/excel/suppression-lignes-et-colonnes-d-un-tableau-t16677.html
Dim dlg As Integer, dcl As Integer
Dim i As Integer
With ActiveSheet
dlg = .Range("Z65536").End(xlUp).Row
For i = dlg To 2 Step -1
    If .Range("Z" & i) = 0 Then Range("A" & i & ":Z" & i).Delete
Next i
dlg = .Range("Z65536").End(xlUp).Row
For i = 26 To 2 Step -1
    If .Cells(dlg, i) = 0 Then Columns(i).Delete
Next i
End With
End Sub

Amicalement

Dan