Public Sub SelCelGris()
Dim P As Range, U As Range
Set P = Range("C2:C" & ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row)
P.AutoFilter 1, RGB(238, 236, 225), 8
Set U = P.SpecialCells(12)
U.Select
MsgBox Selection.Address & vbLf & "donc " & U.Count & " cellules"
P.AutoFilter
End Sub