Sub Texte()
Sheets("Feuil1").Select
Range("D1:D10").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=D1<>"""""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("C1").Select
End Sub