nombre de cellule blanche

Option Explicit

Function Couleurs(Plage As Range, IndexCouleur As Integer) As Long
Dim Cel As Range
  For Each Cel In Plage.Cells
    If Cel.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
  Next Cel
End Function

Sub test()
Dim Derligne As Long
Dim Var As Long
Var = 0
Derligne = Range("A" & Application.Rows.Count).End(xlUp).Row + 3
For j = 3 To 5
    For i = 10 To Derligne - 1
        If Cells(i, j).Interior.ColorIndex = xlNone Then
            Var = Var + 1
        End If
    Next i
    Cells(Derligne, j).Value = Var
    Var = 0
Next j
End Sub

Sub Test()
    Dim Derligne As Long
    Dim Var As Long
    Var = 0
    Derligne = Range("A" & Application.Rows.Count).End(xlUp).Row
    For j = 3 To 5
        For i = 10 To Derligne
            If Cells(i, j).Interior.ColorIndex = xlNone Then
                Var = Var + 1
            End If
        Next i
        Cells(Derligne + 3, j).Value = Var
        Var = 0
    Next j
End Sub