XL 2016 Condition des couleurs de trame dans VBA

[leeroy]

Bonjour,
Je souhaite ajouter une condition de couleur de trame dans le macros ci-joint. Cette condition s'ajoute à des différents de zéro et différent de vide. En effet, je voudrais ne pas tenir compte des cases ayant un fond gris dans une macros qui a pour but d'aligner une plage de donnée en ligne de données.

Merci par avance,
Leeroï

 

[Lolote83]

Salut,
Peut être avec ce code.
Faire une selection puis lancer la macro

Sub Test()
    xCpt = 7
    For Each xCell In Selection
        If xCell.Value <> "" And xCell.Value <> 0 And xCell.Interior.Color = 49407 Then
            xCpt = xCpt + 1
            Range("I" & xCpt) = xCell.Value
        End If
    Next xCell
End Sub

@+ Lolote83