Sub CompterCellules()
Dim CompteCel As Integer, x As Integer
Dim plage As Range, cel As Range
Set plage = Range("D2:D11")
For Each cel In plage
cel.Value = "V"
cel.Interior.Color = RGB(0, 176, 240)
If cel.Value = "V" And cel.Interior.Color = RGB(0, 176, 240) Then
CompteCel = CompteCel + 1
x = x + 1
End If
Next cel
MsgBox "Il y a " & x & " V " & " et " & CompteCel & " cellules en couleur"
End Sub