Bonjour
Juste à modifier un chiffre de 1 à 0 (celui surligné)
Private Sub UserForm_Initialize()
Dim I As Integer
With Me.ComboBox1
.Font.Size = 16
For I = 0 To 36
.AddItem I
Next I
End With
Me.StartUpPosition = Manual
With ActiveCell
Me.Left = .Left + (2 * .Width)
Me.Top = .Top + (4 * .Height) - ActiveWindow.VisibleRange(1, 1).Top
End With
End Sub