XL 2013 Cacher automatiquement 5 lignes par vba

[lestoiles1]

Bonjour, j'aimrais cacher automatiquement les 5 lignes lorsque dans la collone B , il y un "1"(j'ai mis en vert).
J'ai mis le resultat dont j'aurai besoin dans la feuille "result"

Merci de votre collaboration

 

[Gégé-45550]

Bonjour, j'aimrais cacher automatiquement les 5 lignes lorsque dans la collone B , il y un "1"(j'ai mis en vert).
J'ai mis le resultat dont j'aurai besoin dans la feuille "result"

Merci de votre collaboration

Bonjour,
Quelque chose comme ça ,
Cordialement,

 

[job75]

Bonjour lestoiles1, Gégé-45550,

Private Sub cmd_Afficher_Click()
[B25,B30,B35,B41,B46,B51,B56,B61,B66,B71,B76,B81] = 0
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Rows.Hidden = False
For Each Target In [B25,B30,B35,B41,B46,B51,B56,B61,B66,B71,B76,B81]
    If Target = 1 Then Target.Resize(5).EntireRow.Hidden = True
Next
End Sub

A+

 

[lestoiles1]

Bonjour,
Quelque chose comme ça ,
Cordialement,

Oui, c'est ça, mais pour amélioration, est-ce qu'on peut activer le macro seulement lorsqu'on clique sur la feuille , non , lorsqu'on click sur "enter"

 

[Gégé-45550]

Oui, c'est ça, mais pour amélioration, est-ce qu'on peut activer le macro seulement lorsqu'on clique sur la feuille , non , lorsqu'on click sur "enter"

voir pj