re,
Il te suffit de remplacer ta macro CopierCouleurFond par celle-ci :
Sub CopierCouleurFond(PlageSource As Range, PlageCible As Range)
'recopie les couleurs de fond des cellules de la plage-source vers la plage-cible
'(utilisé pour les couleurs de légendes)
Dim c As Integer
For c = 1 To PlageSource.Cells.Count
PlageCible.Cells(c).Interior.Color = PlageSource.Cells(c).Interior.Color
Next c
End Sub
J'ai remplacé
PlageCible.Cells(c).Interior.Color[barrer]Index[/barrer] = PlageSource.Cells(c).Interior.Color[barrer]Index[/barrer]
par
PlageCible.Cells(c).Interior.Color = PlageSource.Cells(c).Interior.Color
Pour tenter une explication, le premier code va se baser sur les couleurs de la palette excel, alors que les couleurs de la carte ne se trouvent pas forcément dedans. Autrement dit, le code cherche une couleur qui s'en rapprochera dans la palette excel et non la couleur exacte.
Si ton problème est résolu, n'oublie pas de cocher le petit V vert.