Macro trop grande

[COLOR="DarkSlateGray"]Sub somme()
Dim total, valeur As Range
ReDim total(1 To 6, 1 To 70)
   For Each valeur In Range("C4:BT80").Cells
      Select Case valeur.Font.ColorIndex
         Case 10: total(1, valeur.Column - 2) = total(1, valeur.Column - 2) + valeur.Value
         Case 46: total(2, valeur.Column - 2) = total(2, valeur.Column - 2) + valeur.Value
         Case 13: total(3, valeur.Column - 2) = total(3, valeur.Column - 2) + valeur.Value
         Case 7: total(4, valeur.Column - 2) = total(4, valeur.Column - 2) + valeur.Value
         Case 44: total(5, valeur.Column - 2) = total(5, valeur.Column - 2) + valeur.Value
         Case 5: total(6, valeur.Column - 2) = total(6, valeur.Column - 2) + valeur.Value
      End Select
   Next valeur
   Range("C85:BT90").Value = total
End Sub[/COLOR]