Surbrillance SI

Avec un code VBA. Par exemple

For Each Cellule In Plage
	X = 0
	Y = 0
	If Cellule = 0 Then
		X = X + 1
	Else
		If Cellule > 0 Then
			Y = Y + 1
		End If
	End If
Next
Call Nettoyer

If X > Y / 2 Then
	Plage.Select
	With Selection.Interior
		.Pattern = xlSolid
		.PatternColorIndex = xlAutomatic
		.Color = 65535
		.TintAndShade = 0
		.PatternTintAndShade = 0
	End With
End If

En ôtant la ligne Call Nettoyer qui renvoyait à un code pour effacer les couleurs

Bonsoir :

1 Sélectionner la plage

2 cliquer sur Mise en forme conditionnelle

3 Choisir Nouvelle règle / sélectionner : utiliser une formule

4 mettre la formule suivante :  =NB.SI($A$1:$A$20;"=0")>=NB($A$1:$A$20)*51%

5 régler la mise en forme  avec remplissage rouge

et la sélection se mettra en fond rouge si le % de 0 est = ou supérieure à 51 %

Voilà un exemple : http://www.cjoint.com/c/FLmahYsPXYN

Tu cliques sur le lien et tu récupères le classeur

A+

Chris