Sub somme()
Dim lngLigne As Long
For lngLigne = 2 To 7
If UCase(Cells(lngLigne, 2).Value) = "ROUGE" Then
Range("C16").Value = Range("C16").Value + Cells(lngLigne, 1).Value
End If
If UCase(Cells(lngLigne, 2).Value) = "BLEU" Then
Range("D16").Value = Range("D16").Value + Cells(lngLigne, 1).Value
End If
Next
End Sub