Changer le motif d'une forme [VBA]

[Guilee]

Bonjour à tout le forum,

Je souhaite donner à l'utilisateur le moyen de changer facilement le rendu de sa forme à l'aide de chiffres qu'il changerait lui-même dans une série de cellules. Cela lui permettrait de modifier la couleur, le type et l'épaisseur du périmètre de sa forme ainsi que le type de motif qui remplirait sa forme (et les couleurs de celui-ci).

Exemple de code ultra simplifié 😉

Private Sub Worksheet_Change(ByVal Target As Range)

ligne = ActiveCell.Row
colonne = ActiveCell.Column

    ActiveSheet.Shapes("Rectangle 1").Select
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = ActiveSheet.Cells(3, 5).Value
    Selection.ShapeRange.Line.DashStyle = ActiveSheet.Cells(3, 4).Value
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.SchemeColor = ActiveSheet.Cells(3, 6).Value
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = ActiveSheet.Cells(3, 7).Value
    Selection.ShapeRange.Fill.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.Patterned msoPatternDarkDownwardDiagonal

ActiveSheet.Cells(ligne, colonne).Select

End Sub

Mon problème est : comment jouer sur la dernière ligne "Selection.ShapeRange.Fill.Patterned", pour modifier les motifs de fond de forme, toujours à l'aide de chiffres ou de chaînes de caractères auxquels correspondrait ces patterns?

Je suis preneur de toutes vos remarques!

Merci d'avance et bon appétit 😀
(D'ailleurs, si je ne réponds pas de suite, c'est peut-être que j'ai une fourchette à la place de ma souris.......)