Kikoo Monique,
Bon j'avoue ne pas comprendre ce que tu a fait 😛 cela depasse mon niveau, mais j'ai trouvé ce code sous VBA qui globalement fait la meme chose et qui m'a permis de m'en sortir, le voila :
Sheets("Statistiques").Cells(1, 50) = Sheets("Tableau des AT").Cells(l, 11)
Sheets("Statistiques").Cells(1, 51) = Sheets("Statistiques").Cells(x, 8)
debut = Format(Range("AX1").Value, "0")
For z = 1 To [AY1]
d = debut + z
m = Month(d)
Select Case m
Case 1
m1 = z
Case 2
m2 = z - m1
Case 3
m3 = z - m1 - m2
Case 4
m4 = z - m1 - m2 - m3
Case 5
m5 = z - m1 - m2 - m3 - m4
Case 6
m6 = z - m1 - m2 - m3 - m4 - m5
Case 7
m7 = z - m1 - m2 - m3 - m4 - m5 - m6
Case 8
m8 = z - m1 - m2 - m3 - m4 - m5 - m6 - m7
Case 9
m9 = z - m1 - m2 - m3 - m4 - m5 - m6 - m7 - m8
Case 10
m10 = z - m1 - m2 - m3 - m4 - m5 - m6 - m7 - m8 - m9
Case 11
m11 = z - m1 - m2 - m3 - m4 - m5 - m6 - m7 - m8 - m9 - m10
Case 12
m12 = z - m1 - m2 - m3 - m4 - m5 - m6 - m7 - m8 - m9 - m10 - m11
End Select
Next
Dim test As String
Dim test2 As String
test = Sheets("Statistiques").Cells(1, 52)
test2 = Sheets("Statistiques").Cells(x, 10)
If test2 <> test Then
Cells(x, 70) = m1
Cells(x, 71) = m2
Cells(x, 72) = m3
Cells(x, 73) = m4
Cells(x, 74) = m5
Cells(x, 75) = m6
Cells(x, 76) = m7
Cells(x, 77) = m8
Cells(x, 78) = m9
Cells(x, 79) = m10
Cells(x, 80) = m11
Cells(x, 81) = m12
Else
End If
Le if avec le test, c'est ma tambouille pour pas qu'il affiche toujours des résultats, apres je me sers de sommeprod pour faire mes sommes de jours.