Couleur Cellule et Couleur Shape

Bonjour, j'ai une macro qui est censé remplir le fond d'une Shape de la même couleur que le fond d'une cellule. Alors j'ai mis le code suivant : Selection.ShapeRange.Fill.ForeColor.SchemeColor = CouleurPays (CouleurPays étant une variable CouleurPays = ActiveCell.Interior.ColorIndex). Mais j'ai deux problèmes : le premier c'est que parfois il me dit que je numéro de couleur va au delà des limites autorisées (il m'affiche 4 250 par exemple). Deuxième problème c'est que lorsque je change la couleur de la cellule avec une des couleurs standards d'excel, résultat la couleur de la shape n'est pas identique à la couleur de la cellule !! Pouvez-vous m'aider ? Merci d'avance.

Configuration: Windows XP
Internet Explorer 7.0