Bonjour finalbreizh,
Je te propose ces 2 codes VBA :
Sub Essai()
[A2].Interior.ColorIndex = [A1].Interior.ColorIndex
End Sub
ou
Sub Essai()
[A2].Interior.Color = [A1].Interior.Color
End Sub
La 1ère instruction avec .ColorIndex est pour une couleur qui fait partie de la palette de couleurs.
La 2ème instruction est pour n'importe quelle couleur (même en dehors de la palette).
dhany