XL 2013 Masquer un shape (forme) définit dans toutes les feuilles

Option Explicit

' Déprotéger toutes les feuilles de calcul
Sub DéprotégerToutesLesFeuilles()
    Dim fc As Worksheet

    For Each fc In Worksheets
        fc.Unprotect "123"
    Next fc

End Sub
' Protéger toutes les feuilles de calcul
Sub ProtégerToutesLesFeuilles()
    Dim fc As Worksheet

    For Each fc In Worksheets
        fc.Protect "123"
    Next fc

End Sub
Sub Masquer()
Dim f As Worksheet
 Call DéprotégerToutesLesFeuilles
    
    
    For Each f In Worksheets
        If f.Name <> "Nom1" And f.Name <> "Nom2" Then  ' Mettre ici les feuilles à exclure
            On Error Resume Next
            Sheets(f.Name).Shapes.Range(Array("Ok")).Visible = False
        End If
    Next f

 Call ProtégerToutesLesFeuilles

End Sub