With ActiveSheet.Shapes("Epargne")
.TextFrame.Characters.Text = Format(c.Offset(, 2), "0.00 \€")
.TextFrame.Characters.Font.Name = "Garamond"
.TextFrame.Characters.Font.Size = 16
.TextFrame.Characters.Font.Bold = True
.TextFrame.Characters.Font.Italic = True
End With