Créer une Diagonale en jaune

Sub essai()
  CreeShapes Range("B2"), "texte1", "texte2"
  CreeShapes Range("E3"), "texte3", "texte4"
End Sub


Sub CreeShapes(c, texte1, texte2)
   On Error Resume Next
   ActiveSheet.Shapes(c.Address & "1").Delete
   ActiveSheet.Shapes(c.Address & "2").Delete
   With ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _
       Left:=c.Left, Top:=c.Top + 1, Width:=c.Width, Height:=c.Height)
       .OLEFormat.Object.Characters.Text = texte1
       .OLEFormat.Object.Characters.Font.Size = 7
       .Fill.ForeColor.RGB = RGB(255, 0, 0)
       .Line.ForeColor.RGB = RGB(255, 0, 0)
       .IncrementRotation 180
        .Name = c.Address & "1"
    End With
    With ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _
      Left:=c.Left, Top:=c.Top + 1, Width:=c.Width, Height:=c.Height)
      .OLEFormat.Object.Characters.Text = texte2
      .OLEFormat.Object.Characters.Font.Size = 7
      .Fill.ForeColor.RGB = RGB(0, 255, 0)
      .Line.ForeColor.RGB = RGB(0, 255, 0)
      .Name = c.Address & "2"
    End With
End Sub