Sub testDessin_III()
ActiveSheet.DrawingObjects.Delete
Cells.Clear
[C3] = "Salut"
[C4] = "mes amis"
Formez_Les_Rangs Range("C3"), msoShapeSun, 350, 350
End Sub
Private Sub Formez_Les_Rangs(Cellule As Range, TypeF As MsoAutoShapeType, vW As Long, vH As Long)
Dim sh As Shape, Texte$
With Cellule
Texte = .Value & Chr(10) & .Offset(1).Value
Set sh = ActiveSheet.Shapes.AddShape(TypeF, .Left, .Top, vW, vH)
With sh.TextFrame2
.TextRange = Texte: .VerticalAnchor = 3: .HorizontalAnchor = 2
.WordArtformat = 30: .TextRange.Font.Size = 20
End With
sh.ShapeStyle = 10013
sh.LockAspectRatio = msoTrue
sh.ScaleHeight 1, msoFalse, msoScaleFromTopLeft
sh.ScaleWidth 1, msoFalse, msoScaleFromTopLeft
.Clear
.Offset(1).Clear
End With
End Sub