VBA colorier 5 lignes sur 7

=MOD(LIGNES($2:2)-1;7)<5

Sub ColorUnSurcinq()
'Colorier 5 lignes sur 7

    Dim Cel As Range
    Dim r As Range

    Set r = Application.InputBox("Sélectionner une plage", "SÉLECTION", Type:=8)

    For Each Cel In r
        If (Cel.Row - r.Cells(1).Row) Mod 7 < 5 Then
            Cel.Interior.ColorIndex = 6
        End If
    Next Cel

    Set r = Nothing

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'une plage doit avoir été sélectionnée
If Target.Count = 1 Then Exit Sub
Dim n As Long
n = MsgBox("Cliquer sur Oui pour colorer, Non pour effacer...", 3, "Mise en forme conditionnelle")
If n = 2 Then Exit Sub
With Selection.FormatConditions 'MFC
  .Delete
  If n = 7 Then Exit Sub
  n = Selection.Row
  Cells(1, Columns.Count).Formula = "=MOD(ROWS($" & n & ":" & n & ")-1,7)<5"
  .Add xlExpression, , Cells(1, Columns.Count).FormulaLocal 'change avec la version Excel
  Cells(1, Columns.Count) = ""
  .Item(1).Interior.ColorIndex = 6
End With
End Sub

Selection(1).Activate

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'une plage doit avoir été sélectionnée
If Target.Count = 1 Then Exit Sub
Dim n As Long
n = MsgBox("Cliquer sur Oui pour colorer, Non pour effacer...", 3, "Mise en forme conditionnelle")
If n = 2 Then Exit Sub
With Selection.FormatConditions 'MFC
  .Delete
  If n = 7 Then Exit Sub
  n = Selection.Row
  Selection(1).Activate
  Cells(1, Columns.Count).Formula = "=MOD(ROWS($" & n & ":" & n & ")-1,7)<5"
  .Add xlExpression, , Cells(1, Columns.Count).FormulaLocal 'change avec la version Excel
  Cells(1, Columns.Count) = ""
  .Item(1).Interior.ColorIndex = 6
End With
End Sub