Cacher des lignes VBA

Bonjour,

j'ai un fichier Excel sur lequel il existe trois tableaux...Sur chacun des tableaux dans chaque cellule soit il y a écrit "concerné" soit c'est une cellule vide...dans la colonne H il y a un code (1=toutes les cellules sont vides et 0 si une seule cellule est remplie). j'aimerai une macro qui puisse cacher la ou les ligne.s quand le code est égal à 1.. et je voudrais une macro qui puisse remettre les lignes avec une hauteur de 25 pour chaque ligne...merci par avance !

Bonjour,

à tester,

Sub Masquer_ligne()
n = Cells(Rows.Count, "H").End(xlUp).Row
For i = 5 To n
  If Cells(i, "H") = 1 Then Rows(i).EntireRow.Hidden = True
Next
End Sub

Sub Afficher_ligne()
n = Cells(Rows.Count, "H").End(xlUp).Row
For i = 5 To n
  If Cells(i, "H") = 1 Then
    With Rows(i)
    .EntireRow.Hidden = True
    .RowHeight = 25
    End With
  End If
Next
End Sub

excellent cela fonctionne...merci...mais j'ai une autre question ...imaginons que dans un des tableaux il y a que des cellules vides comment cacher le tableau entier, enfin les titres de tableaux...merci par avance !