Re : mise en forme de cellules
Salut nak,
testes ce code, mais il est possible de l'épurer encore
Sub Macro1()
If ActiveCell = "1" Then
Selection.FormulaR1C1 = ""
Selection.Interior.ColorIndex = xlNone
Else
Selection.FormulaR1C1 = "1"
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65280
End With
With Selection.Font
.Color = 16711936
End With
End If
End Sub
A+