Sub hide()
'Ca fonctionne mais il faudrait qu'on puisse y laisser également
'des 0 ou des formules renvoyant 0.
'Ca éviterait au collaborateur de devoir effacer le conteu
'de chaque tableau pour qu'il masque les lignes.
Application.ScreenUpdating = False
With Application.WorksheetFunction
'Masquer les lignes "Détail des participations"
Set plage = Range("participations_content")
Range("participations").EntireRow.Hidden = _
.CountIf(plage, 0) + .CountIf(plage, "") = plage.Count
'Masquer les lignes "Détail des montants non appelés sur participations (-)"
Set plage = Range("participations_non_appelés_content")
Range("participations_non_appelés").EntireRow.Hidden = _
.CountIf(plage, 0) + .CountIf(plage, "") = plage.Count
'Masquer les lignes "Détail des réductions de valeur sur participations"
Set plage = Range("participations_red_valeur_content")
Range("participations_red_valeur").EntireRow.Hidden = _
.CountIf(plage, 0) + .CountIf(plage, "") = plage.Count
End With
End Sub