dimension d'un userform

bonjour Je voudrais dimensionner un userform en fonction de la largeur d'un range avec ceci, je suis près de la vérité, mais si quelqu'un avait une meilleure solution je suis preneur Private Sub UserForm_initialize() Me.Width = (Range("a1:f1").Width / 1.24) * ((ActiveWindow.Zoom / 100) * 1.24)...