'Formulaire H = 238.5 - L = 300 - Label1.Left = 18
Private Sub UserForm_Initialize()
Dim CentreCel As Single, GauCel As Single, TopCel As Single
CentreCel = ActiveCell.Left + (ActiveCell.Width / 2)
' Label1.Left à laisser tel quel - pas mettre 18 à la place
GaucheCel = UserForm1.Width / 2 + Label1.Left - 156
TopCel = ActiveCell.Top - UserForm1.Height + 440
UserForm1.Left = CentreCel - GaucheCel
UserForm1.Top = TopCel
End Sub