Affecter une couleur

Bonjour,

pouvez vous me donner la macro suivante:

macro si cellule A1=1 coller la couleur de la cellule A2 dans la cellule A1 et masquer la valeur de A1

merci d'avance

Bonjour

Code à tester :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
With Target
If Target = 1 Then
    .Interior.Color = Range("A2").Interior.Color
    .Font.Color = Range("A2").Font.Color
Else:
    .Interior.Color = xlNone
    .Font.Color = 0
End If

End With
End If
End Sub

Si ok, merci de cloturer le fil en cliquant sur le v vert à coté du bouton EDITER.

Crdlt

Merci pour votre réponse,

Cela correspond au résultat souhaité.