XL 2016 Dimension Forme automatique

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not IsNumeric(CStr(Target)) Then Exit Sub
Dim coef#
coef = 2.8357 'à ajuster par tâtonnement
Cancel = True
With Shapes.AddShape(msoShapeOval, 0, 0, 0, 0)
    .Fill.ForeColor.RGB = vbYellow 'jaune
    .Width = coef * Target
    .Height = .Width
    .Left = Target.Left + (Target.Width - .Width) / 2
    .Top = Target.Top + (Target.Height - .Height) / 2
End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not IsNumeric(CStr(Target)) Then Exit Sub
Dim coef#
coef = 2.8357 'à ajuster par tâtonnement
Cancel = True
With Shapes.AddShape(msoShapeOval, 0, 0, 0, 0)
    .Fill.ForeColor.RGB = vbYellow 'jaune
    .TextFrame.VerticalAlignment = xlVAlignCenter
    .TextFrame.HorizontalAlignment = xlHAlignCenter
    .TextFrame.Characters.Text = Application.InputBox("Texte à placer dans la forme :")
    .TextFrame.Characters.Font.Color = vbBlack
    .Width = coef * Target
    .Height = .Width
    .Left = Target.Left + (Target.Width - .Width) / 2
    .Top = Target.Top + (Target.Height - .Height) / 2
End With
End Sub