Boucle permettant de récupérer valeur

Bonjour,

Après avoir calculé la moyenne des températures par jour pour chaque jour de l'année, j'aimerais reporté les valeurs dans une autre colonne mais cette fois ci pour chaque heure.

Je m'explique, j'ai déjà calculé la température moyenne pour le 1/01 sur 24h. Maintenant j'aimerais reporter cette valeur pour les 24h du 1/01 et renouveller cette procédure pour l'ensemble des jours de l'année.

Option Explicit
Option Base 1

Sub Tmaxmin_jour()
Dim Derlig As Integer, Nbre_jours As Integer
Dim lig As Integer, Jour As Integer, T_jour, T_temp, T_out
Dim tab_temp(8760) As Variant

'initialisations

    Application.ScreenUpdating = False
    'nettoyage tableau résultats
    Range("H3:L370").ClearContents
    Derlig = Columns("A").Find("*", , , , , xlPrevious).Row
    Nbre_jours = (Derlig - 1) / 24 ' prendre en compte année bissectiles
    ReDim T_out(Nbre_jours, 5) 'champ2=jour, 1=mois 3:maxi,4: mini, 5 moyenne
    
'------Mémorisation des températures maxi/mini/moyenne par jour/mois
    For lig = 2 To Derlig Step 24
        Jour = Jour + 1
        T_jour = Range(Cells(lig, "A"), Cells(lig, "B"))
        T_temp = Range(Cells(lig, "D"), Cells(lig + 23, "D"))
        T_out(Jour, 1) = T_jour(1, 1)
        T_out(Jour, 2) = T_jour(1, 2)
        T_out(Jour, 3) = Application.Max(T_temp)
        T_out(Jour, 4) = Application.Min(T_temp)
        T_out(Jour, 5) = Application.Average(T_temp)
        tab_temp(Jour) = T_out(Jour, 5)
        
    Next
'-----Restitutions des mesures
    Range("H3").Resize(UBound(T_out), 5) = T_out
    Range("O2").Resize(UBound(tab_temp)) = tab_temp
End Sub

Le problème est que j'ai seulement la première valeur (le 1/01) et cela pour l'ensemble des jours de l'année qui s'affiche dans ma nouvelle colonne.



En vous remerciant d'avance,