For i = 34 To 42 ' MESURES ALTIMETRIE
Contour = Sheets("données").Cells(i, 33)
Epaisseur = Sheets("données").Cells(i, 34)
ColorLine = Sheets("données").Cells(i, 35).Interior.Color
With Feuil3.Shapes.AddShape(msoShapeRectangle, _
Echelle * Cells(i, 27), Echelle * Cells(i...