Microsoft 365 Afficher et cacher des cellules

[Amymone]

Bonsoir le forum

J'ai un début de macro qui cache les cellules vides, cependant comment modifier la macro pour qu'elle cache aussi le deuxième tableau
Il faut cependant toujours prendre en compte le 1° tableau, j'espère que c'est explicite
je suis novice dans ce domaine et j'ai besoin de votre aide
Merci

 

[Chris401]

Bonsoir
Il suffit d'ajouter les plages du 2ème tableau

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If CommandButton1.Caption = "Cacher" Then
        CommandButton1.BackColor = &HFFC0C0
        CommandButton1.Caption = "Afficher"
Range("D9:D17,D22:D31").Select
For Each o In Selection
If o.Value = "" Then
o.EntireRow.Hidden = True
End If
Next
Range("E9").Select

Else
        CommandButton1.Caption = "Cacher"
        CommandButton1.BackColor = &HFF&

[D9:D17,D22:D31].EntireRow.Hidden = False
Range("E9").Select
End If


Application.ScreenUpdating = True

End Sub