Test du motif d'une case en VBA

Bonjour à tous.

Je recherche le moyen en vba de tester le motif d'une case (hachurées etc..) afin de pouvoir incrémenter une variable.

Merci d'avance pour vos réponses.

Cordialement.

Bonjour,

Code à adapter :

Sub testPattern()
    With Range("G5")
        If .Interior.Pattern <> -4142 Then
            MsgBox "Pattern OK"
        End If
    End With
End Sub

Je vais essayer ça. Merci.