Sub Test()
Dim feuilleDessin As Worksheet, haut As Double, gauche As Double, largeur As Double, i As Long, nouvForme As Shape
'définir la feuille où on dessine les rectangles
Set feuilleDessin = ThisWorkbook.Sheets("Feuil2")
'définir la largeur des rectangles
largeur = 75
'définir le coin haut-gauche de l'ensemble des rectangles
'ici, on le défini par rapport à la cellule D4
haut = feuilleDessin.Range("B2").Top
gauche = feuilleDessin.Range("B2").Left
With ThisWorkbook.Sheets("Feuil1")
'boucler sur chaque données de l'objet "Objet 1"
For i = 6 To 14
'ajouter le rectangle
Set nouvForme = feuilleDessin.Shapes.AddShape(msoShapeRectangle, gauche, haut + .Range("A" & i).Value, largeur, .Range("B" & i).Value - .Range("A" & i).Value)
'ajouter le texte dans la forme
nouvForme.TextFrame.Characters.Text = .Range("C" & i).Value
nouvForme.TextFrame.HorizontalAlignment = xlCenter
nouvForme.TextFrame.VerticalAlignment = xlCenter
Next i
End With
End Sub