On Error Resume Next 'le backgraound (Attention!!! 'displayformat(version sup à 2007)
cir = xlToHtmlColor(cel.Cells(1).DisplayFormat.Interior.Color)
ErrNumber = Err.Number
On Error GoTo 0
If ErrNumber > 0 Then cir = xlToHtmlColor(cel.Cells(1).Interior.Color)