Bonjour Speedy faire un script, est-ce taper des lignes de commandes ? si oui, ouahhh quelle galère !!! j'ai des fichiers avec plus de 6000 coordonnées donc je ne me vois pas taper 6000 lignes de commandes. :mad: Sinon, pour info voici un extrait de mon programme Excel (Soyez indulgent je ne suis pas informaticienne) l = 2.65 h = 6.2 For i = 2 To n x1 = (Worksheets("xy").Range("B" & i) / 100) - (l / 2) y1 = -(Worksheets("xy").Range("C" & i) / 100) - (h / 2) baptême = Worksheets("xy").Range("A" & i) Worksheets("plan").Activate ActiveSheet.Shapes.AddShape(msoShapeRectangle, x1, y1, l, h).Select With Selection .Placement = xlFreeFloating .PrintObject = True .Name = baptême End With Next i et voila.... ;)