Bonjour PHP28,
Je te propose la petite fonction suivante à coller dans un module (il faut donc transformer le .xlsx en .xslm) :
Function compteJaune(zRange As Range)
Const cColorJaune = 65535
Dim ocell As Range
For Each ocell In zRange.Cells
If ocell.Interior.Color = cColorJaune Then
If IsNumeric(ocell.Value) Then
compteJaune = compteJaune + 1
End If
End If
Next
End Function
Je joins mon classeur de test.