shape en fond dégradé de deux couleur

With ActiveSheet.Shapes _
 .AddShape(Type:=msoShapeRectangle, _
 Left:=0, Top:=0, Width:=40, Height:=80).Fill
 .ForeColor.RGB = RGB(128, 0, 0)
 .BackColor.RGB = RGB(0, 170, 170)
 .TwoColorGradient Style:=msoGradientHorizontal, Variant:=1
End With

Private Sub creategrad_Click()
    With Worksheets(listetheme.Value)
        Set shap = .Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 100)
        shap.Name = "fond"
        With shap.Fill
            .TwoColorGradient 1, 1
            .BackColor.RGB = (vbyellow)
            .ForeColor.RGB = (vbred)
            .Visible = msoTrue
        End With
    End With
End Sub

Sub a()
With ActiveSheet.Shapes.AddShape(6, 0, 0, 100, 100).Fill
.TwoColorGradient 1, 2: .ForeColor.RGB = vbRed: .BackColor.RGB = vbYellow
End With
End Sub