Bonsoir Hervé
Si le terme "Cellule dont le motif a été ombré" signifie "Cellule avec une trame" il suffit d'insérer dans une macro la séquence d'instruction qui suit :
i = 0
For Each c In Selection.Cells
If c.Interior.Pattern <> xlSolid And c.Interior.Pattern <> xlNone _
Then i = i + 1
Next c
MsgBox "La selection compte " & i & " cellule(s) avec une trame"
NB : Selection pourra être par n'importe quelle plage de cellules (Range)
Cordialement ...