Sub testfgfdgfdgfdg()
Dim tab_mois(12) As Variant
Dim valeur_test As Long
Dim i As Long
Dim mois As Long
For i = 22 To Range("H22").End(xlDown).Row
valeur_test = Cells(i, 8)
Select Case valeur_test
Case 1: tab_mois(0) = tab_mois(0) + Cells(i, 6)
Case 2: tab_mois(1) = tab_mois(1) + Cells(i, 6)
Case 3: tab_mois(2) = tab_mois(2) + Cells(i, 6)
Case 4: tab_mois(3) = tab_mois(3) + Cells(i, 6)
Case 5: tab_mois(4) = tab_mois(4) + Cells(i, 6)
Case 6: tab_mois(5) = tab_mois(5) + Cells(i, 6)
Case 7: tab_mois(6) = tab_mois(6) + Cells(i, 6)
Case 8: tab_mois(7) = tab_mois(7) + Cells(i, 6)
Case 9: tab_mois(8) = tab_mois(8) + Cells(i, 6)
Case 10: tab_mois(9) = tab_mois(9) + Cells(i, 6)
Case 11: tab_mois(10) = tab_mois(10) + Cells(i, 6)
Case 12: tab_mois(11) = tab_mois(11) + Cells(i, 6)
End Select
Next i
mois = 0
For i = 6 To 17
Cells(i, 3) = tab_mois(mois)
mois = mois + 1
Next i
Erase tab_mois
End Sub