MAJ tableau avec macro

Bonjour à tous,

Tout d'abord désolé pour ce titre peu évocateur, je ne sais comment formuler ma demande autrement.

Voila l'idée:

J'ai un classeur excel avec plusieur feuilles de calcul.

L'une de ces feuilles de calcule est la base de donnée. Tous les chiffres des autres feuilles proviennent de cette feuille intitulé BDD.

De ce fait, quand je change la feuille BDD, les changements se font sur toutes les autres feuilles.

Et voici mon probleme.

J'ai utiliser cette macro pour masquer les lignes vides :
Code:

1 2 3 4 5 6 7 8 9 10 Sub FitreVides() Application.ScreenUpdating = False On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 Cells(2, 15) = "=sum(c9:j9)>0" Range("c8:j17").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("o1:o2"), Unique:=False Range("o2").ClearContents End Sub
Ce que j'aimerais c'est que quand je modifie la BDD (evidement certaines lignes vides se remplissent et d'autres qui étaient "pleine" se vident) les nouvelles lignes vides se cachent sans que j'ai à intervenir....

J'espere avoir été a peu pres clair

Merci d'avance

CLément

Private Sub Worksheet_Activate() Application.ScreenUpdating = False Application.DisplayAlerts = False Cells.Select Selection.EntireRow.Hidden = False Dim cel As Range '("A1:A100") à adapter selon la longeur du tableau et la colonne à tester ! For Each cel In Range("A1:A100") If cel = "" Then cel.EntireRow.Hidden = True End If Next Range("A1").Select Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub