Format listing

Bonjour à tous,

Je n'arrive plus à trouver comment j'ai obtenu ce format listing:

j'ai cherché dans accueil/mettre sous forme de tableau, mais je trouve rien sur la mise en forme de l'intérieur d'un TCD.

avec un peu de code couleur sur les lignes pair çà pourrait pas le faire ?

'format listing

    For i = 7 To finpvt
        If Cells(i, 1) Mod 2 = 0 Then
         Range(Cells(7, 10), Cells(finpvt, 10)).Select
            With Selection.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 14540253
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
        End If
    Next i

merci

Fronck

c'est bon, çà fonctionne avec çà:

'format listing

    For i = 7 To finpvt
        If Cells(i, 1) Mod 2 = 1 Then
         'MsgBox "Nombre Pair"
         Range(Cells(i, 1), Cells(i, 13)).Select
            With Selection.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 14540253
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
        End If
    Next i