j'ai essayé cells(1,1).bgcolor
ou cells(1,1).backcolor  
 
mais c pas ça, vous aurez la solution
 
merci.

Quand tu crée une macro en enregistrement automatique, pour colorier des cellules, tu obtiens ceci : (EXCEL 2000°
 
    Range("A5" ).Select
    With Selection.Interior
        .ColorIndex = 4    (couleur verte)
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    Range("A7" ).Select
    With Selection.Interior
        .ColorIndex = 41   (couleur bleue)
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
Tu peux essayer de t'en inspirer...
 
A+

Les ColorIndex sont des variables de type variant.
Donc pour récupérer la couleur d'ne cellule tu peux faire comme suit:
 
Sub Blop()
Dim couleur As Variant
 
couleur=Range("A1" ).Interior.ColorIndex
 
End Sub
 
Après tu peux réutiliser couleur pour une autre cellule. Bien sûr la valeur que tu obtiens n'a de sens que dans le contexte d'index des couleur.