Bonsoir Bleck,
Tu trouveras en pièce jointe un exemple qui devrait répondre au problème posé.
=====================================================
Private Sub CommandButton1_Click()
Sheets("Hoja1").UsedRange.Columns("A:B").ClearContents
i = 0
For Each Sht In Sheets
If Sht.Name <> "Hoja1" Then
i = i + 1
Sheets("Hoja1").Cells(i, 1).Value = Sht.Cells(1, 1).Value
Sheets("Hoja1").Cells(i, 2).Value = 0
For Each Cel In Sht.Range("B8:M24")
If Cel.Interior.ColorIndex <> xlNone Then _
Sheets("Hoja1").Cells(i, 2).Value = _
Sheets("Hoja1").Cells(i, 2).Value + Cel.Value
Next Cel
End If
Next Sht
End Sub
=====================================================
Bon courage pour la suite ...
Omicron