Optimisation de code - condition if ... and

Bonjour,

J'aimerai améliorer la rapidité d'exécution de mon code.

Pour mettre un peu de contexte je veux réaliser une journée type "moyenne" de 24h à partir de courbes de charge électriques sur une année. Les critères sont les jours de la semaine (lundi ? mardi ? ...) et la saison (hiver, été)
Je veux 2 journées types différentes.

Je fais donc une sorte de moyenne, sur de très nombreuses conditions. et la structure classique de MOYENNE.SI.ENS d'excel de me permet pas d'y arriver. J'ai donc décider d'essayer par une macro.

L'idée générale est de repérer les cellules correspondants à mes critères, puis de les sommer et de diviser cette somme par le nombre de cellules. Je fais donc une moyenne arithmétique "a la mano".

Je fais 2 boucles "for" imbriquées (une sur 52000 cellules et l'autre sur 144 cellules) au total j'ai donc un grand nombre d'opérations à faire, et le moindre dixième de seconde gagné est très important.

A l'intérieur de mes boucles for, j'ai de nombreuses conditions "IF", et j'utilise les structures IF... AND

Pouvez-vous me dire s'il y a un moyen d'optimiser cette méthode ? Ou si le code en lui-même peut être optimisé (par exemple j'ai lu qu'en déclarant les variables utilisées dans mes boucles "for", on gagne un peu de temps)

Merci d'avance !!

Ci-dessous le code en question

Sub JourneeMoyenne2()

Dim Tablo(143, 1)
Dim P10()
Dim deb, fin, A, Somme, Saison_1, Saison_2
Dim Heures(), Jour_1(), Jour_2(), Hiver(), Ete()

With Worksheets("Calcul")

Saison_1 = .Range("I4")
Saison_2 = .Range("J4")

Jour_1 = .Range("I5:I11").Value
Jour_2 = .Range("J5:J11").Value

ReDim Heures(143)
Heures = .Range("H13:H156").Value

End With

Hiver = Array(1, 2, 11, 12)
Ete = Array(6, 7, 8, 9)

With Worksheets("10min")

deb = .Range("pts_10_min").Row
fin = .Range("pts_10_min").Cells(1, 1).End(xlDown).Row

ReDim P10(fin - deb, 3)
Dim j As Long

For j = 0 To UBound(P10)
P10(j, 0) = .Range("C" & j + deb) 'heure
P10(j, 1) = .Range("D" & j + deb) 'puissance
P10(j, 2) = .Range("F" & j + deb) 'jour
P10(j, 3) = .Range("G" & j + deb) 'mois
Next j

Dim i As Integer
Dim s As Long

'Journée moyenne 1
A = 0
Somme = 0

Dim temps As Double

For i = 0 To UBound(Tablo) - 1
temps = Timer
For s = deb To fin
j = s - deb
If P10(j, 0) = Heures(i + 1, 1) And Not IsError(Application.Match(P10(j, 2), Jour_1, 0)) Then

If Saison_1 = "Année complète" Or _
(Saison_1 = "Hiver" And Not IsError(Application.Match(P10(j, 3), Hiver, 0))) Or _
(Saison_1 = "Eté" And Not IsError(Application.Match(P10(j, 3), Ete, 0))) Then

Somme = Somme + P10(j, 1)
A = A + 1

End If
End If
Next s

If Somme = 0 Or A = 0 Then
Tablo(i, 0) = 0
Else
Tablo(i, 0) = Somme / A
End If
Debug.Print Timer - temps
Next i

'Journée moyenne 2
A = 0
Somme = 0

For i = 0 To UBound(Tablo) - 1
For s = deb To fin
If .Range("C" & s) = Heures(i + 1, 1) And Not IsError(Application.Match(.Range("F" & s), Jour_2, 0)) Then

If Saison_2 = "Année complète" Or _
(Saison_2 = "Hiver" And Not IsError(Application.Match(.Range("G" & s), Hiver, 0))) Or _
(Saison_2 = "Eté" And Not IsError(Application.Match(.Range("G" & s), Ete, 0))) Then

Somme = Somme + .Range("D" & s)
A = A + 1

End If
End If
Next s

If Somme = 0 Or A = 0 Then
Tablo(i, 1) = 0
Else
Tablo(i, 1) = Somme / A
End If

Next i

End With

'Colle le tableau dans excel
Worksheets("Calcul").Range("I13:J156") = Tablo

End Sub