Planing cyclique par DRANREB

.StopIfTrue = False

Sub Installation()
Dim N&, L&, PLg As Range
 Application.Goto Feuil1.[A1]
 Cells.FormatConditions.Delete
For N = 1 To 12
    If N = 1 Then
       L = 11 ' Ne pouviez vous vraiment pas vous arranger pour que janvier soit en ligne 14 ?    ////  La, je ne comprends pas votre commentaire  /////
   Else      ' Touts les autres mois sont basés sur la 14 :
      L = 14 + (N - 1) * 11
       End If
    Set PLg = [C:AG].Rows(L).Resize(7)    '///////   Ici, je ne parviens pas à modifier pour insérer les formules    ////////
    If N = 2 Then
       Cells(L, "AE").FormulaR1C1 = "=IF(MONTH(SLF)=MONTH(RC2),SLF,"""")"
       Cells(L + 1, "AE").FormulaR1C1 = "=IF(MONTH(SLF)=MONTH(R" & L & "C2),_SLF1,"""")"
       End If
    PLg.Rows(3).Resize(5).FormulaR1C1 = "=CYC(R" & L & "C)"
    
    '///////     Ici je voudrais incrémenter la MFC des postes, soit "M" pour matin, "S" pour soir, "N" pour nuit     /////////
    '///////             j 'ai essayé ceci pour les matins mais ca ne fonctionne pas
    '///////     alors que si je ne passe pas par le vba cela fonctionne comme vous pouvez le constater
    
    ' With PLg.Rows(3).Resize(5).FormatConditions.Add(Type:=xlExpression,
     'Formula1:="=(A$" & L & ";2)=""M""")
       '.Interior.ColorIndex = RGB(255, 255, 160)

       
'/////////     J'ai réussi à modifier votre code en fonction de mon souhait    /////////
  
   With PLg.Resize(7).FormatConditions.Add(Type:=xlExpression, _
       Formula1:="=OU(JOURSEM(A$" & L & ";2)>5;ESTNUM(EQUIV(A$" & L & ";Ferie;0)))")
       .Interior.Color = RGB(199, 255, 151): .Font.Color = RGB(186, 0, 0)
   End With
'////////      Par celui-ci      ///////

    With PLg.Resize(2).FormatConditions.Add(Type:=xlExpression, _
       Formula1:="=(JOURSEM(A$" & L & ";2)>5)")
       .Interior.Color = RGB(255, 255, 0): .Font.Color = RGB(255, 0, 0)
    End With
    
    With PLg.Resize(2).FormatConditions.Add(Type:=xlExpression, _
       Formula1:="=RECHERCHEV(A$" & L & ";Fériés;1;0)")
       .Interior.Color = RGB(96, 255, 0): .Font.Color = RGB(255, 0, 0)
       
      ' .StopIfTrue = False
       
       End With
       
    Next N

End Sub

For N = 1 To 12
    L = 11 + (N - 1) * 8
    Set PLg = [C:AG].Rows(L).Resize(7)
    If N = 2 Then
       Cells(L, "AE").FormulaR1C1 = "=IF(MONTH(SLF)=MONTH(RC3),SLF,"""")"
       Cells(L + 1, "AE").FormulaR1C1 = "=IF(MONTH(SLF)=MONTH(R" & L & "C3),_SLF1,"""")"
       End If

    With PLg.Offset(2).Resize(5).FormatConditions.Add(Type:=xlCellValue, _
       Operator:=xlEqual, Formula1:="=""M""")
       .Interior.Color = RGB(0, 255, 255)
       End With

Function CYC(ByVal D As Range) As String
Const Z = "MMMM---NNN--SSSS--MMM---NNNN--SSS--"
If Not IsDate(D.Value) Then Exit Function
' CYC = Mid$(Z, (D.Value - (Application.Caller.Row - D.Row) * 7 - 2) Mod 35 + 1, 1)
 CYC = Mid$(Z, (D.Value - 9 + (Application.Caller.Row - D.Row) * 14) Mod 35 + 1, 1)
End Function

CYC = Mid$(Z, (D.Value - 9 - (Application.Caller.Row - D.Row) * 21) Mod 35 + 1, 1)