XL 2010 Bouton afficher les lignes masquées

[tchi456]

Bonjour,

J'ai une feuilles avec deux boutons (masquer et afficher des lignes si cellule en colonne F remplie).
Ce code fonctionne très bien sur la première feuille mais quand je veux dupliquer la feuille, le bouton "afficher" ne fonctionne pas sur la feuille copiée.

[COLOR=rgb(97, 189, 109)]' Masquer les lignes ou les cellules de la colonne F si elles sont remplies:[/COLOR]

Sub masquer_ligne_vide_TEST2()
    ActiveSheet.Unprotect Password:="."
    Dim Cel As Range
    For Each Cel In ActiveSheet.Range("F3:F250").Cells
    If Cel <> vbNullString And Cel.Value <> "" Then
    Cel.EntireRow.Hidden = True
    End If
    Next
    ActiveSheet.Protect Password:="."
End Sub

[COLOR=rgb(97, 189, 109)]' Afficher les lignes masquées:[/COLOR]

[COLOR=rgb(184, 49, 47)]Sub AfficherColonneLigne()
    ActiveSheet.Unprotect Password:="."
    Columns.EntireColumn.Hidden = False
    Rows.EntireRow.Hidden = False
    ActiveSheet.Protect Password:="."
End Sub[/COLOR]

Pouvez-vous m'aider?

Meilleures salutations,

Thierry

 

[tchi456]

Apparemment en remplaçant le Sub par Private Sub ça fonctionne.

Bonne journée