VBA boucle pour protéger jour fériés dans fichier joins

Sub verrouFeries()
    Dim c As Range
    With Worksheets("fériés")
        For Each c In Range(.[D3], .[D3].End(xlDown))
            With Sheets(Format(c, "mmmm"))
                .Unprotect "PHILOU"
                If .[E52] = Year(c) Then .[G54].Offset((Day(c) - 1) * 5).Resize(5, 16).Locked = True
                .Protect "PHILOU"
            End With
        Next c
    End With
End Sub 

Sub Test()
Onglet = Array(Feuil1.Name, Feuil2.Name, Feuil3.Name, Feuil4.Name, Feuil5.Name, Feuil6.Name, _
            Feuil7.Name, Feuil8.Name, Feuil9.Name, Feuil10.Name, Feuil11.Name, Feuil12.Name)
   For TT = LBound(Onglet) To UBound(Onglet)
      Sheets(Onglet(TT)).Select
      ActiveSheet.Unprotect Password:="PHILOU"
         Range("G54:V208").Locked = False
         For L = 54 To 208 Step 5
            MaDate = Range("C" & L).Value
               For Each Cell In Feuil14.Range("D3:D15")
                  If MaDate = CDate(Cell.Value) Then
                     Range("G" & L & ":V" & L + 4).Locked = True
                  End If
               Next
         Next
      ActiveSheet.Protect Password:="PHILOU"
   Next
Sheets(Onglet(0)).Select
End Sub

Sub MontreTout()
Onglet = Array(Feuil1.Name, Feuil2.Name, Feuil3.Name, Feuil4.Name, Feuil5.Name, Feuil6.Name, _
            Feuil7.Name, Feuil8.Name, Feuil9.Name, Feuil10.Name, Feuil11.Name, Feuil12.Name)
   For TT = LBound(Onglet) To UBound(Onglet)
      Sheets(Onglet(TT)).Select
         ActiveSheet.Unprotect Password:="PHILOU"
         ActiveWindow.FreezePanes = False
         Cells.Select
         Selection.EntireColumn.Hidden = False
         Selection.EntireRow.Hidden = False
      Application.Goto Range("A51"), True
   Next
Sheets(Onglet(0)).Select
End Sub

Sub MasqueSaisie()
Onglet = Array(Feuil1.Name, Feuil2.Name, Feuil3.Name, Feuil4.Name, Feuil5.Name, Feuil6.Name, _
            Feuil7.Name, Feuil8.Name, Feuil9.Name, Feuil10.Name, Feuil11.Name, Feuil12.Name)
   For TT = LBound(Onglet) To UBound(Onglet)
       Sheets(Onglet(TT)).Select
         ActiveSheet.Unprotect Password:="PHILOU"
            Columns(1).EntireColumn.Hidden = True
            Columns(3).EntireColumn.Hidden = True
         Application.Goto Range("A51"), True
            Range("A54").Select
            ActiveWindow.FreezePanes = True
         ActiveSheet.Protect "PHILOU"
   Next
Sheets(Onglet(0)).Select
End Sub