Je suis un peu en panne, je souhaite obtenir la comptabilisation de plusieurs cellules (mais pas une plage)vides. afin d'avoir l'effectif journalier prévisionnel sans les factions
Sub Bouton1_QuandClic()
For i = 3 To 30 'Nombre de ligne
For j = 2 To 8 'Résultat dans champ I
If Cells(i, j).Interior.ColorIndex = 3 Then 'Rouge à adapter
Cells(i, 9) = 1
End If
Next
Next
End Sub