Bonjour,

j'ai le même souci mis a part avec le code suivant:

For j = 6 To 57
a = 0
b = 0
c = 0
d = 0
e = 0
f = 0

i = 5

Do While Cells(i, 3) <> "PRE"

If Cells(i, j) = "PRE" And Cells(i, j).Interior.Color = RGB(255, 204, 153) Then
a = a + 1
End If

If Cells(i, j) = "DEB" And Cells(i, j).Interior.Color = RGB(255, 255, 102) Then
b = b + 1
End If

If Cells(i, j) = "PRS" And Cells(i, j).Interior.Color = RGB(204, 204, 255) Then
c = c + 1
End If

If Cells(i, j) = "ASS" And Cells(i, j).Interior.Color = RGB(204, 204, 255) Then
d = d + 1
End If

If Cells(i, j) = "PEI" And Cells(i, j).Interior.Color = RGB(204, 255, 204) Then
e = e + 1
End If

If Cells(i, j) = "EXP" And Cells(i, j).Interior.Color = RGB(255, 102, 102) Then
f = f + 1
End If

i = i + 1

Loop
Cells(i, j) = a
Cells(i + 1, j) = b
Cells(i + 2, j) = c
Cells(i + 3, j) = d
Cells(i + 4, j) = e
Cells(i + 5, j) = f
Next

Cependant pour les cellules égale à "DEB" et "EXP" ça ne marche pas et si j'enleve la condition sur la couleur de la cellule ça marche mais il me compte des case "DEB" ou la couleur de fond est blanc et je ne veut pas qu'il prenne en compte ces cases

Merci d'avance pour vos reponses

FLIP68 FT Me204