Sub Histo(Ttk As Variant, L As Single, T As Single, W As Single, H As Single)
'ligne ci-dessous en défaut
With ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, L, T, W, H)
.Fill.ForeColor.RGB = Ttk(1, 2)
.Fill.Transparency = 0.3
.Line.ForeColor.RGB = RGB(160, 160, 160)
.Shadow.Type = msoShadow21
.TextFrame2.HorizontalAnchor = msoAnchorCenter
.TextFrame2.VerticalAnchor = msoAnchorMiddle
With .TextFrame2.TextRange.Characters
.Text = Ttk(1, 10) & " - " & Ttk(1, 11)
.Font.Size = 9
.Font.Bold = True
.Font.Fill.ForeColor.RGB = &H353535
End With
.AlternativeText = Altxt(Ttk)
.Name = "." & Ttk(1, 1)
.OnAction = "Clic_Evt"
End With
End Sub