Calculer la moyenne avec des conditions

Option Explicit
Dim T_jour
'------------
Sub compiler()
Dim Mois As Byte, Cptr As Byte

    Application.ScreenUpdating = False
    'nbre de jours dans le mois
    With Sheets("les MOYENNE")
        'nbre de jours dans le mois
        Mois = Application.CountA(.Range("A5:A35"))
        'mémorise les jours du mois
        ReDim T_jour(1 To Mois)
        
        'For Cptr = 1 To Mois A ACTIVER APRES ESSAIS
        For Cptr = 1 To 4 ' A SUPPRIMER APRES ESSAIS
            'appelle le calcul de la moyenne du mois
            Call Moyenne_jour(Cptr)
        Next
        
        'restitue les moyennes du mois
        .Range("B5").Resize(Mois, 1) = Application.Transpose(T_jour)
    End With
End Sub

'------------------------------------------------------------------------------
Sub Moyenne_jour(Jour)
Dim Onglet As String, Derlig As Integer, T_in, Cptr As Integer, Unite(), Test, Nbre As Integer, Total As Double

     'mise au format de la feuille étudiée
      Onglet = Format(Jour, "00")

    With Sheets(Onglet)
        Derlig = .Columns("N").Find(what:="*", searchdirection:=xlPrevious).Row
        'mémorise les colonnes N-O
        T_in = .Range("N2:O" & Derlig)
        'mémorise les unités à prendre en compte
        Unite = Array("CCO LYON", "ULPRR", "ULRM UFNA")
        'apurage sur unités sélectionnées
        For Cptr = 1 To UBound(T_in)
            Test = Filter(Unite, T_in(Cptr, 2), True)
            'si l 'unit existe dans la colonne O
            If UBound(Test) = 0 Then
                Nbre = Nbre + 1 'nombre de prise en compte
                Total = Total + T_in(Cptr, 1) 'cumul des ecarts colonne N
            End If
        Next
        
        'calcul de la moyenne du jour
        If Nbre > 0 Then
            T_jour(Jour) = Total / Nbre
        Else
            T_jour(Jour) = "vide"
        End If
    End With
End Sub