Totaliser uniquement les valeurs des cellules Rouges sous Excel en VBA

Sub TotalisationCouleurRouge()

Set Aselectionner = Application.InputBox _
     (prompt:="selectionner la plage de cellule ", _
     Title:=" Plage de cellules à sélectioner", Type:=8)
     Aselectionner.Select 'Selection de la plage souhaitée
     For Each cel In Aselectionner
          If cel.Interior.ColorIndex = 3 Then SomRouge = SomRouge + cel
      Next cel
         MsgBox SomRouge
End Sub