Hi all,
Here is the code to add automatically connectors between 2 shapes
Set forga = Sheets("orgaShapes")
Set f = Sheets("liensSupplémentaires")
For Each s In forga.Shapes
If Right(s.Name, 4) = "Lien" Then s.Delete
Next
Tbl = f.Range("A2:C" & f.[A65000].End(xlUp).Row).Value...