En VBA calcul moyenne selon plusieurs critères

Merci beaucoup pour la formule.

http://www.cjoint.com/data/0CApXTIk4jc.htm

Le but de mon fichier est que l'utilisateur n'ait juste à remplier la feuille "Utilisateur" et les résultats s'affichent dans la feuille "Résultat".

Cependant, j'ai des feuilles intermédiaires avec des valeurs feuille "Tableau Valeur".

En fait ce que je souhaite avoir, c'est obtenir les informations type température, pression saturante... lorsque nous sommes en situation de confort ou non pour l'occupant. Afin de pouvoir exploiter ces données, j'aimerais obtenir une journée type par mois (une confort et une non confort) sur 5 plages horaires qui sont :
- 1h début occupation
- début occupation midi
- midi 14h
- 14h fin occupation
-fin occupation 24h

Je voulais créer une macro directement qui calcule pour chaque tranche horaire la moyenne de la température. Cependant, n'y arrivant pas, j'ai décidé d'afficher les données qui m'intéressent (macro jour_type) en fonction de ces plages horaires et de travailler ensuite sur ces informations. L'affichage de ces valeurs est un peu long dans la feuille tableau de valeur.

En te remerciant d'avance,

Et donc pour avoir la moyenne des données, il faut que j'arrive à comptabiliser le nombre d'heure que j'ai exactement sur ces plages horaires pendant le mois.

J'avais pensé à ce bout de code, cependant cela ne fonctionne pas et fait planter le logiciel :

Sub Journée_type()

'Déclaration des variables
    Dim tab_heure_solaire(8761) As Variant
    Dim deb_occ As Variant
    Dim nb_heure_j_1 As Variant
    
'Enregistrement des variables

deb_occ = Worksheets("Utilisateur").Cells(8, 6)
fin_occ = Worksheets("Utilisateur").Cells(9, 6)


    For i = 0 To 8761
        
    
    tab_heure_solaire(i) = Sheets("Tableau Valeur").Range("C" & i + 2)
    
        For j = 0 To 744
            
            If tab_heure_solaire(i) >= 1 And tab_heure_solaire(j) < deb_occ Then
            
                nb_heure_j_1 = Application.WorksheetFunction.Count(Sheets("Tableau Valeur").Range("C2:C744"))
                
            End If
            
        Next
Next
End Sub

http://www.cjoint.com/data/0CAqBXUbCO1.htm

Excuse moi, j'avais mal lu ton commentaire