Autres Excel et le dessin de formes.

Sub Ajoute_une_forme_automatique()
    Posh = Range("A2").Left
    Posv = Range("A2").Top
    LWidth = Range("A2").Width
    HHeight = Range("A2").Height
With Worksheets("Feuil1").Shapes.AddShape(msoShapeRectangle, Posh, Posv, LWidth, HHeight)
    .Name = "NomForme"
    .TextFrame.Characters.Text = "Le texte dans la forme"
End With
End Sub

Function PosSh(rng As Range)
Dim Posh As Double, Posv As Double, Wwidth As Double, Hheight As Double
Posh = rng.Left: Posv = rng.Top: LWidth = rng.Width: Hheight = rng.Height
    With Worksheets("Feuil1").Shapes.AddShape(msoShapeRectangle, Posh, Posv, LWidth, Hheight)
        .Name = "NomForme"
        .TextFrame.Characters.Text = "Le texte"
    End With
End Function

Sub Test()
Dim lig As Long, i As Long, j As Long
lig = 2
For i = lig To 6
    PosSh Range("A" & lig)
    PosSh Range("B" & lig)
lig = lig + 1
Next i
For j = 1 To 6: PosSh Range("F" & j): Next j
End Sub

Sub DesFormesEtDesTeintesPourDétente()
Dim rng As Range, shp As Shape, i&, j&
Randomize 1600
For i = 1 To 3
    For j = 1 To 6
    Set rng = Cells(i, j)
    With rng
        Set shp = ActiveSheet.Shapes.AddShape(1, .Left, .Top, .Width, .Height)
        shp.Fill.ForeColor.RGB = RGB(Int(255 * Rnd), Int(255 * Rnd), Int(255 * Rnd))
        shp.TextFrame2.TextRange.Text = "TEST"
        shp.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
    End With
    Next j
Next i
End Sub

shp.TextFrame2.TextRange.Text = "TEST"

.TextFrame.Characters.Text = "Le texte"