Le nombre de cellules au fond rouge, Bleu ... ect, est leur %

Merci Maurice pour ta réponse rapide et pourtant est important d'être et pour ton aide.

Ton maco excellent, je l'ai juste en rendu automatique :

Private Sub Worksheet_Activate()
   For L = 1 To 40
    Coul = Range("B" & L).Interior.Color
      Select Case Coul
         Case 255
            C1 = C1 + 1
         Case 12611584
            C2 = C2 + 1
         Case 5287936
            C3 = C3 + 1
      End Select
   Next
Range("E5").Value = C1
Range("E7").Value = C2
Range("E9").Value = C3
End Sub

J'ai juste deux demande :

1. à propos des couleurs :

Le code "Case 255" et pour la couleur rouge
Le code "Case 12611584" et pour la couleur bleu
Le code "Case 5287936" et pour la couleur vert

Tu peux me donner les codes pour les autres couleurs.

2. à propos de pourcentage :

Cellules au fond rouge ---> 16 cellules /40 cellules ----> 40 %
Cellules au fond blue ---> 11 cellules /40 cellules ----> 27.5 %
Cellules au fond vert ---> 13 cellules /40 cellules ----> 32.5 %

Tu peux me montrer comment en le trouve automatiquement
Merci d'avance

Merci infiniment, j'ai deux autres questions si ça ne te dérange pas :
La première est :
Savoir le nombre de cellule remplie et dans une colonne.
La deuxième est :
Savoir le nombre de cellule vide dans une colonne bien définie par exemple de B1 à B30.

Merci et désolé de t'avoir dérangé mais c'est juste que je ne connais pas ses fonctions là alors j'ai demandé de l'aide.
Encore désolé et merci

Bonjour,

Désolé de te déranger encore une fois mais j'ai remarqué que le macro ne prend pas compte les cellules avec un remplissage créés par la mise en forme conditionnelle.

J'ai essayé de créer un macro qui me permet de changer le remplissage d'une cellule (chaque cellule de la Colonne B) en cliquent sur un bouton, et comme ça quand le macro calcul le nombre de cellule avec un remplissage il prend en compte les cellules rempli grace a une condition.

Voila le macro :

Sub Couleur()
Dim L As Long
For L = 1 To 40
   If Range("B" & L) >= 10 Then
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    End If
   If Range("B" & L) < 10 Then
  With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    End If
   If Range("B" & L) = " " Then
  With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 16777215
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    End If
    Next
End Sub

Mais il ne change que le remplissage de la cellule selectionnée avec une seul couleur même si je mets des conditions :

Si la valeur de la cellule >= 10 ----> Couleur vert ----> Color = 5287936 ;
Si la valeur de la cellule < 10 ----> Couleur rouge ----> Color = 255 ;
Si la valeur de la cellule >= 10 ----> Aucune couleur ----> Color = 16777215 ;

Je suis débutant dans le langage VBA, j'ai sûrement fait beaucoup d'erreur pouvez-vous les corriger s'il vous plaît.
Merci d'avance

j'ai trouvé une solution qui marche très bien, la voici :

Sub Couleur()
Dim L As Long
    For L = 5 To 20
        With Range("B" & L)
            If .Value = "" Then
                With .Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .Color = 16777215
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
                End With
            ElseIf .Value >= 10 Then
                With .Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .Color = 5287936
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
                End With
            ElseIf .Value < 10 Then
                With .Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .Color = 255
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
                End With
            End If
        End With
    Next
End Sub

merci de m'avoir aidée