Option Explicit
Sub Format_conditionnel()
If [d1] = [c1] Then
[c1].Copy
[d1].PasteSpecial Paste:=xlPasteFormats
Else
[a1].Copy
[d1].PasteSpecial Paste:=xlPasteFormats
End If
Application.CutCopyMode = False
End Sub