XL 2016 [RESOLU] MFC VBA sur N° ligne d'un groupe

Sub essai()
    For L = 4 To 19
        Cells(L, "Q") = Cells(L, "C").Rows.OutlineLevel
    Next L
End Sub

Sub ColoreCelGrp2()
    Dim CelGrp2 As Range, PremLigGrp1 As Long
    Set CelGrp2 = ActiveCell

    'Vérifie que la cellule fait partie d'un groupe
    If CelGrp2.Rows.OutlineLevel > 1 Then
        PremLigGrp1 = CelGrp2.Row

        If CelGrp2.Row > 1 Then
            'première ligne qui n'est pas groupée
            For i = CelGrp2.Row - 1 To 1 Step -1
                If Cells(i, CelGrp2.Column).Rows.OutlineLevel = 1 Then
                    PremLigGrp1 = i
                    Exit For
                End If
            Next i
        End If
        MsgBox PremLigGrp1
        Select Case CelGrp2.Row
            Case PremLigGrp1 + 1
                CelGrp2.Interior.ColorIndex = 5
            Case PremLigGrp1 + 2
                CelGrp2.Interior.ColorIndex = 6
            Case PremLigGrp1 + 3
                CelGrp2.Interior.ColorIndex = 7
            Case PremLigGrp1 + 4
                CelGrp2.Interior.ColorIndex = 8
        End Select
    
    
    End If


End Sub

Sub Essai()
For L = 4 To 43
    Cells(L, "A") = L
    If L Mod 5 = 4 Then
        Cells(L, "B") = "Level 1"
    Else
        Cells(L, "B") = "Level 2"
    End If
Next L
End Sub