XL 2016 MFC en VBA excel 2016

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

Sub Texte()
  With Feuil1.Range("d:d").FormatConditions
    .Delete
    With .Add(Type:=xlExpression, Formula1:="=(D1=""Donné"")+(D1=""Envoyé"")")
      .SetFirstPriority
      .StopIfTrue = False
      .Interior.PatternColorIndex = xlAutomatic
      .Interior.Color = 13551615
      .Interior.TintAndShade = 0
      .Font.Color = -16383844
      .Font.TintAndShade = 0
    End With
  End With
End Sub