Function Couleur(CouleurOri As OLE_COLOR)
If CouleurOri = 8454143 Then 'Jaune
CouleurOri = 16711680 'Bleu
Exit Function
ElseIf CouleurOri = 16711680 Then 'Bleu
CouleurOri = 255 'Rouge
Exit Function
ElseIf CouleurOri = 255 Then 'Rouge
CouleurOri = 8454143
Exit Function
End If
End Function