Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim L_Bl As Object, OverTheRainBow
Randomize 1600
For Each L_Bl In ActiveSheet.OLEObjects
OverTheRainBow = RGB(Int(Rnd * 255), Int(Rnd * 121), Int(Rnd * 67))
'syntaxe classique
'If TypeName(L_Bl.Object) = "Label" Then L_Bl.Object.BackColor = OverTheRainBow
' pour le fun
L_Bl.Object.BackColor = IIf(TypeName(L_Bl.Object) = "Label", OverTheRainBow, 0)
Next
End Sub