Mettre en forme une forme libre en la traçant

Bonjour à tous,
Désolé de vous déranger, je ne trouve pas de solution à mon problème et je m'arrache les cheveux dessus !
J'ai une boucle qui trace une forme libre en fonction de coordonnées de noeuds que j'ai dans un onglet différent
Voici le code associé :

Code:

---

1 2 3 4 5 6 7 8 9

Sheets("Data").Select Range(DébutdelaZoneATracer).Select Do Until ActiveCell.Value <> ZoneATracer With Sheets("Z1").Shapes.BuildFreeform(msoEditingAuto, ActiveCell.Offset(-1, 3).Value, ActiveCell.Offset(-1, 4).Value) .AddNodes msoSegmentLine, msoEditingAuto, ActiveCell.Offset(0, 3).Value, ActiveCell.Offset(0, 4).Value .ConvertToShape End With Activecell.Offset(1,0).Select Loop

---

J'aurai besoin de mettre en forme cette forme (par exemple en pointillés verts) au fur et à mesure que je la trace, car ensuite j'ai d'autres boucles qui vont tracer d'autres formes par dessus celle-ci dans d'autres mise en forme pour simuler différentes "couches".
Je ne peux donc pas sélectionner toute la forme car je dois faire de même avec les formes suivantes et je ne veux pas que toutes les couches soient les mêmes...

Je m'arrache les cheveux dessus, s'il vous plaît aidez-moi à sauver mes cheveux !
Merci par avance !

Bon, j'ai trouvé une solution en remplaçant la forme libre par des segment et en utilisant un set.
Ce qui donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sheets("Data").Select Range(DebudelatZoneATracer).Select Do Until ActiveCell.Value <> ZoneATracer Set Forme = Sheets("Z1").Shapes.AddConnector(msoConnectorStraight, ActiveCell.Offset(-1, 3).Value, ActiveCell.Offset(-1, 4).Value, _ ActiveCell.Offset(0, 3).Value, ActiveCell.Offset(0, 4).Value) With Forme.Line .ForeColor.RGB = RGB(50, 125, 255) .DashStyle = msoLineDash .Weight = 2 End With ActiveCell.Offset(1, 0).Select Loop

---

Merci à ceux auront lu et regardé au problème.