Private Sub Worksheet_Activate()
'xCoul = Sheets("Feuil1").Range("A1").Interior.Color
xCoul = COULEUR(Sheets("Feuil1").Range("A1"))
xR = Int(xCoul Mod 256)
xV = Int((xCoul Mod 65536) / 256)
xB = Int(xCoul / 65536)
Sheets("Feuil2").Range("D1:D3").Interior.Color = RGB(xR, xV, xB)
End Sub