C'est absolument génial. J'ai un bug en la faisant tourner ça me met ça : Pt = Split(T0(idx, 2), "|") en jaune dans le code suivant:
Sub Dessin_Traits(Optional x As Byte)
Dim Crd1 As Coord, Crd2 As Coord, Pt As Variant
Dim idx As Integer, i As Integer
For i = 2 To UBound(T1)
idx =...