Private Sub Worksheet_Change(ByVal Target As Range)
Dim P As Range, t, ncol%, i&, j%
Set P = Me.UsedRange
If P.Count = 1 Then
t = P.DisplayFormat.Interior.ColorIndex
Else
t = P 'matrice, plus rapide
ncol = UBound(t, 2)
For i = 1 To UBound(t)
For j = 1 To ncol
t(i, j) = P(i, j).DisplayFormat.Interior.ColorIndex
Next j, i
End If
With Feuil2 'CodeName de la feuille auxiliaire
.Cells.ClearContents 'RAZ
.Range(P.Address) = t
End With
End Sub