Salut,
Pour masquer les lignes 20 à 30 avec la même condition, tu peux utiliser le code suivant :
Sub Masquer()
Dim I As Long
I = 20
Do While I < 31
If Cells(I, 1).Value = "" Then
Cells(I, 1).EntireRow.Hidden = True
End If
I = I + 1
Loop
End Sub
Pour rouvrir les lignes il faudrait utiliser un code
EntireRow.Hidden = False
mais tu dois indiquer à quelles conditions tu veux les rouvrir (ou tu désires rouvrir toutes les lignes sans conditions?).
Cordialement.