à moins que vous vouliez compter le nombre de cellules colorées en bleu ?
Function NBcongé(Zne As Range)
Application.Volatile True
For Each cell In Zne
If cell.Interior.Color = RGB(189, 215, 238) Then NBcongé = NBcongé + 1
Next
End Function
edit: correction orthographe